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Wer viel oder auch nachts script, 
äh schreibt. Nanu? 





script istneu. script ist für Mengen. script 
ist einfach und modern. Textverarbei- 
tung, leicht, wie Brause. Für Vielschrei- 
ber und für Nachtschreiber. Überhaupt 
für alle, die es beim Schreiben gerne 
leicht haben. Es kann alle Signuml-Zei- 
chensätze verarbeiten, aber auch im 
Draft-Modus ausdrucken (dann auch 
gerne Proportionalschriften). Natürlich 


formatiert script automatisch und natürlich kann man in Zoll 


oder Zentimeter bemaßen und bis zu vier Tex- 
ten gleichzeitig bearbeiten. Der puren Bequem- 
lichkeit dient die Blockselektion: Kopieren, ver- 
schieben, einsetzen, laden, speichern. Auch 
ASCII kann geladen und ausgegeben werden 
(Hallo Freunde), Texte ordnen sich links- und 





rechtsbündig, zentriert oder im Blocksatz. script arbeitet im 
Grafikmodus und unterstützt verschiedene Bildformate (Sig- 
num!, Doodle, STAD). Wir tauschen script gegen 198,-- DM. 


Nun aber! 
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= EDITORIAL 


Von Vergleichen und 
Marktführern 


Zuweilen muß man sich fragen, wohin es mit der Pressefrei- 
heit noch gehen soll. Ein Gerichtsurteil (2 HK 0 2284/89) gibt 
mir momentan stark zu denken. Nach diesem Urteil muß sich 
ein Redakteur ernsthaft fragen, wie ein Testbericht auszuse- 
hen hat. Wird nämlich ein Vergleichstest verfaßt, muß man 
sich jetzt auf alle sogenannten “Marktführer” konzentrieren, 
um eine vollständige Übersicht zu produzieren. Dazu einige 
Zitate aus dem Urteilsspruch: 


“Die Beklagte nimmt mit ihrer Anzeige eine vergleichende 
Testwerbung vor, wobei sie für sich sogar eine Alleinstellung 
in Anspruch nimmt. Eine derartige Werbung würde auf jeden 
Fall voraussetzen, daß das Testergebnis, auf das sich der 
Werbende bezieht, ordnungsgemäß zustandegekommen ist 


(.)" 


“Von einem ordnungsgemäßen Zustandekommen eines Test- 
ergebnisses kann schon nach dem eigenen Vortrag der Be- 
klagten nicht ausgegangen werden. Die Zeitschrift (...) hat 
nämlichnnach Auffassung der Kammer die Warenauswahl zum 
Test (...) nicht ordnungsgemäß vorgenommen.” 


“(.„..) daß das (...) Magazin das Programm der Beklagten als 
das beste (...) für den ST bezeichnet. Dies ist unzulässig, 
nachdem die Beklagte selbst einräumen muß, daß das Pro- 
‚gramm eines weiteren Marktführers (...) nicht getestet wur- 
de.” 


Natürlich sollte man in einem Testbericht nicht gleich mit 
dem Superlativ um sich werfen, aber nach Studium des Urteils 
kommen sofort einige Fragen auf: Wer sagt mir definitv, wer 
“Marktführer” in einer bestimmten Sparte ist? Wie wird ein 
“Marktführer” überhaupt definiert? Ist es der- bzw. diejenige, 
der (die) die meisten Programme verkauft - oder die größte 
Zahl an Angestellten hat - oder die größte Werbung schaltet - 
oder aber am längsten im Geschäft ist? 


Nehmen wir an, trotz dieser Fragen sind die “Marktführer” 
ausfindig gemacht worden. Was passiert, wenn einer dieser 
“Marktführer” sein (ihr) Programm nicht kostenlos zu einem 
Test zur Verfügung stellen möchte? Zitat aus dem Urteils- 
spruch: “Wenn aber bei fünf Marktführern ein Programm 
überhaupt nicht in den Test einbezogen wurde, ist die Bezeich- 
nung eines Programmes als bestes nach Auffassung der Kam- 
mer nicht zulässig.” Muß der Tester sich dann das Programm 
im freien Handel besorgen, damit der Vergleichstest vollstän- 
dig wird? Sicher, die Stiftung Warentest kauft auch Testgerä- 
te, doch ein Computer-Magazin ist keine Stiftung, die ihren 
Sinn einzig und allein darin sieht, Endverbrauchern Tester- 
gebnisse zu präsentieren - noch dazu kostet ein Programm 


erheblich mehr als eine Kaffeemaschine. Was sagt das Urteil 
dazu: “Wenn das (...) Magazin schon einen Vergleichstest 
durchführen und die Ergebnisse veröffentlichen wollte, hätte 
es sich gegebenenfalls dieses Programm auf dem Markt be- 
schaffen müssen." 


Wir können die Situation auch noch weiter verfolgen: Die - 
gekauften oder zum Test zur Verfügung gestellten - Program- 
me aller “Marktführer” werden getestet. Nach dem Test 
möchte ein Hersteller aber nicht, daß der Bericht veröffent- 
licht wird, weil er denkt, daß sein Programm dabei zu schlecht 
abschneidet. Was ist zu tun? Wird der Test jetzt unvollstän- 
dig? Darf der Redakteur noch behaupten, daß alle “Marktfüh- 
rer” berücksichtigt wurden, wenn er das Programm nicht in 
die Bewertung mit aufnimmt? Oder soll man den Test trotz- 
dem veröffentlichen und wird dann schon fast bedroht, daß 
keine Werbung mehr geschaltet wird? 


Es geht noch weiter: Der Test ist, trotz all dieser Schwierigkei- 
ten, abgeschlossen und veröffentlicht. Zwangsläufig muß bei 
einem Vergleichstest mindestens ein Programm als Testsie- 
ger hervorgehen. Der Hersteller verwertet das Testergebnis 
bei seiner Werbung. Was wird unter Umständen passieren? 
Eine Anzeige gegen ihn erfolgt, da ein Mitbewerber (ein 
“Marktführer”?) diese Werbung als “irreführend” oder “un. 
zulässige Alleinstellungswerbung” bezeichnet. Im Urteil mit 
dem Aktenzeichen 2 HK 0 2284/89 ist eine Firma dazu 
verurteilt worden, knapp 35.000,- DM Strafe zu zahlen, weil 
Sie geworben hatte mit “Der Testsieger. (...) Vergleichstest 
(...) Magazin in 10/88 (...)”. Das Gericht entschied, daß der 
Vergleichstest kein solcher sei. 


Hat nun der Redakteur “die Warenauswahl nicht ordnungs- 
gemäß vorgenommen” (laut Anklageschrift), oder fühlt sich 
lediglich ein Hersteller (der Kläger) ausgebootet? Darf man 
als gewissenhafter Redakteur noch wertende Bezeichnungen 
wie “sehr gut” oder “mangelhaft” benutzen, ohne gleich mit 
einer Klage vor Gericht oder fehlender Werbung (die dem 
Entzug der Arbeitsgrundlage entspricht) rechnen zu müssen? 
Giltein Schlußsatz des Redakteurs (“Fazit: ...”) als subjektive 
oder objektive Wiedergabe des Testergebnisses? Darf man 
überhaupt noch ein Programm als das aus einem Test hervor- 
gehende “beste Programm” dieses Tests bezeichnen? Ich 
kann für mich aus diesen Überlegungen nur einen Schluß 
ziehen: Entweder lasse ich mich von solchen Urteilen ein- 
schüchtern - was ausschließt, daß ich objektive Testberichte 
verfassen kann -, oder ich schreibe weiter wie bisher - und 
sollte mir unter Umständen schon jetzt einen Rechtsanwalt 
“reservieren”... 


Martin Pittelkow 
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Modems 
Der Anschluß zur Außenwelt 


Um Ihnen eine Übersicht des heutigen Stands bei Modems zu 
geben, haben wir die Modelle der bekanntesten Anbieter getestet. 
Es wurden lediglich diejenigen getestet, die auch mit 2400 Baud 
(gleich zirka 240 Zeichen pro Sekunde) Übertragungsgeschwin- 
digkeit arbeiten, da langsamere Baud-Raten aus der “Mode” 
kommen und kaum mehr verlangt werden. 


Seite 20 


ADIMENS ST plus 
Das “PLUS?” macht den Unterschied 


Gerne schmücken die Software-Häuser ihre neuen Produkte mit 
einem kleinen unscheinbaren Zeichen, dem “+”. Andere schrei- 
ben das Wort sogar aus: “plus” (z.B. Ist_Wordplus, ST-PASCAL 
plus, Ist-Proportional plus usw.). Die Firma ADI-Software aus 
Karlsruhe hat schon auf der Düsseldorfer ATARI-Messe ’89 
einen Einblick in die neuen Funktionen ihres Produktes “ADI- 
MENS ST plus” (Version: 3.0) gegeben. Was bringt das “Plus” 
den Anwendern jetzt? 


Seite 38 
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Script 
Textverarbeitung & la 


vielleicht noch der Re| 
wegen GEM und der 
Desktop, in- Erinnerun| 
Mac-Emulatoren, die e! 

ST laufen zu lassen. 

der Gemeinsamkeiten eingeläutet zu werden: Es werden 
auf dem ST Programme geschrieben, die Mac-Programmen 


ar sahr_ähnlis 





k 




















Script 
Textverarbeitung a la Mac 


Wer ein ST-Anwender der ersten Stunde ist, dem ist vielleicht 
noch der Rechtsstreit zwischen ATARI und Apple wegen der 
ähnlichen Benutzeroberfläche, dem Desktop, in Erinnerung. 
Bald darauf kamen die ersten Mac-Emulatoren, die es erlaubten, 
Mac-Programme auf dem ST laufen zu lassen. Nun scheint die 
nächste Generation der Gemeinsamkeiten eingeläutet zu werden: 
Es werden auf dem ST Programme geschrieben, die Mac-Pro- 
grammen doch sehr ähnlich sehen. Bewährte Mac-Standards auf 
dem ST? Das neueste Produkt von Application Systems scheint 
es zu beweisen, denn wer das Mac-Programm WriteNow kennt, 
wird sich sofort in Script heimisch fühlen. 


Seite 16 






Somewhere 
over the Rainbow 
Intimes zu TOS 1.4 
Teil 1 


Nun ist es endlich soweit - die von vielen lang erwartete neue 
Version unseres Lieblings-Betriebssystems TOS ist fertig. Das 
neue TOS 1.4 (Rainbow-TOS) wurde auf der Düsseldorfer 
ATARI-Messe offiziell vorgestellt und endgültig freigegeben. 
Dies ist Grund genug, es auch unseren Lesern häppchenweise 
vorzustellen. 


Seite 15 1 
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Lispas jetzt als PD 


Das Softwarehaus Tommy- 
Software aus Berlin veröffent- 
licht jetzt in einer PD-Deluxe- 
Serie seinen bekannten GEM- 
Lisp-Interpreter LISPAS II als 
PD-Deluxe Nummer 2. Damit 
soll einem noch größeren Kreis 
von Interessenten die Pro- 
grammiersprache LISP nahe- 
gebracht werden. Kopien des 
PD-LISPAS II-Interpreters 
gibt es überall, oder bei Tom- 
mySoftware gegen DM 20,- 


für Porto und Verpackung. 
Kunden, die sich registrieren 
lassen (DM 20,-), erhalten als 
Dankeschön ein gedrucktes 
Handbuch (solange Vorrat 
reicht) und für DM 99,- den 
kompletten Sourcetext in Pas- 
cal. 


Tommy Software 
Selchower Straße 32 
1000 Berlin 44 

Tel. 030/621406-3 





Symbolisches Algebra- 
und Programmiersystem 


RIEMANN 


Von der Firma Begemann & 
Niemeyer Softwareentwick- 
lung gibt es jetzt “RIE- 
MANN”, das sowohl ein Ma- 
thematikprogramm für symbo- 
lische Algebra und Analysis 
als auch eine vollständige KI- 
nahe und LISP-ähnliche Pro- 
grammiersprache ist. Im Be- 
reich der Mathematikfunktio- 
nen ist Riemann zu etwa 98% 
kompatibel zu muMATH-83 
und muSIMP-83. Die interne 
Darstellung von Riemann ist 
LISP sehrähnlich, nicht so sehr 
jedoch die äußere Syntax, die 
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eher an z.B. PASCAL orien- 
tiert ist. Die Programmierspra- 
che Riemann ist ebenfalls zu 
etwa 95% kompatibel zu mu- 
SIMP-83, der Programmier- 
sprache, in der muMATH-83 
geschrieben ist. Riemann ko- 
stet DM 238,- (für Studenten 
DM 168,-). 


Begemann & Niemeyer 
Softwareentwicklung GbR 
Schwarzenbrinker Straße 91 
4930 Detmold 


Neuheiten zur 


UKW-Tagung 


Der Verlag Afusoft hat zur 
UKW-Tagung 1989 sein Ver- 
triebsprogramm für Produkte 
der Kommunikationstechnik 
erweitert. Für alle Packet-Ra- 
dio- und RRTY-Fans erscheint 
jetzt die Version 2.0 des Kom- 
munikationsprogramms Ra- 
dio-Writer ST. Gegen Einsen- 
dung der Originaldiskette er- 
halten alle registrierten Benut- 
zer gegen Zahlung einer gerin- 
gen Handlingsgebühr die neue 
Version. Ebenfalls im Pro- 
gramm sind die Afusoft MPSK 
Empfänger-Option (ein neues 


in Weinheim 


Option-Board für den Stan- 
dardkonverter MPSK), die 
MPSK Satelliten-Demodula- 
tor-Option (ein AM Option- 
Board für den Standardkonver- 
ter MPSK), ein Morse-Tutor 
PC (ein Morsetrainer für IBM- 
kompatible Rechner), sowie 
der Radio-ManagerST, der aus 
einem Stations-Management 
und einer Datenbank besteht. 


Verlag Afusoft 








OMIKRON.Assembler 


Omikron liefert seinen As- 
sembler nun in der Version 
1.86 aus. Die benutzeroberflä- 
che wurde komplett überarbei- 
tet und mit Menüleiste und 
Maussteuerung ausgestattet. 
Menüfunktionen sind jedoch 
weiterhin auch über Tasten 
erreichbar. Der Zehnerblock 
läßt sich als erweiterter Cursor- 
block oder zur Hex-Eingabe 
verwenden. Neue Einstell- 
möglichkeiten, wie z.B. das 
Ausschalten von Alertboxen, 
wurden implementiert. Das 
Programm arbeitet jetzt auch 
mit dem linkfähigen DRI-For- 


mat, und der Sourcetext kann 
platzsparend gepackt abge- 
speichert werden. Auf Tasten- 
druck werden automatisch 
Optimierungen von Sprüngen 
und Subroutine-Aufrufen 
durchgeführt. Gegen Einsen- 
dung der Programmdiskette 
und DM 30,- erhalten regi- 
strierte Benutzer den neuen 
Assembler incl. komplett übe- 
rarbeitetem Handbuch. 


Omikron 
Erlachstraße 15 
7534 Birkenfeld 
Tel. 07082/50048 


NEWS 


PAM’S NET 


Seit über einem Jahr liefert 
PAM Software das schnelle 
Netzwerk PAM’s NET, mit 
dessen Hilfe ATARI ST-Com- 
puter professionell vernetzt 
werden können. Die Software 
erlaubt die gemeinsame Nut- 
zung von im Netz verteilten 
Festplatten (incl. File/Record- 
Locking für Datenbanken), 
Druckern, Streamern, V.24- 
Schnittstellen etdc., wobei auf 
die Netzlaufwerke 100% TOS- 
transparent zugegriffen wer- 
den kann. Die Server bleiben 
weiterhin als Arbeitsplatz 
nutzbar. Diebisherigen PAM’s 
NET/s-Adapter wurden inzwi- 
schen durch Standard-Ethernet 


(IEEE 802.3, 10 MBit/s) Mo- 
dule in mehreren Ausführun- 
gen ergänzt. Verfügbar sind 
Adapter sowohl für den DMA- 
Port als auch den ROM-Port 
und den Prozessorbus des 
MegasST - alle mit integriertem 
Cheapernet-Transceiver. Die 
Software wurde um eine TCP/ 
IP-Shell mit Tektronix/ 
VT100-Emulation erweitert, 
so daß nun komfortable Kom- 
munikation mit UNIX-, VMS- 
und MS-DOS-Systemen etc. 
möglich ist. 


PAM Software 
Carl-Zuckmayer-Straße 27 
6500 Mainz 33 

Tel. 06131/476402 


Bildkonvertierung 


chern, ist die 
Pixelgröße 
nicht be- 
schränkt auf 
640 x 400 











Speichern als ... 
ING (Groß)Grafik oder 
PAC/PIC Sequenz oder 


SDO Signun Docunent 








Punkte. Ist das 
Bild größer, 
kann es ges- 
erollt werden. 




















Mit Convert 
kann man end- 
lich alles in ei- 
nem Programm 





Dem lästigen Konvertieren 
von Bildern wirdnun endgültig 
das Garaus gemacht: Mit Con- 
vert lassen sich mehr als 60 
Bildschirmformate einladen 
und als PIC, PAC, SDO oder 
IMG-Format wieder abspei- 
chern. Zu den einladbaren For- 
maten zählen auch Bilder vom 
AMIGA oder dem MaclIntosh. 
Nach dem Einladen kann gar 
ein Bildschirmausschnitt ge- 
wählt werden, der abgespei- 
chert werden soll! Convert 
verarbeitet aber nicht nur ein- 
zelne Bilder, sondern auch 
Bildsequenzen. Sowohl beim 
Laden, als auch beim Spei- 


machen. Die 
konvertierten Bilder lassen 
sich rückspeichern als STAD- 
Format, Signum-Dokument (!) 
oder Image-Bild für Calamus, 
Pagestream, Timeworks, Ven- 
tura etc. (!!). Convert läuft auf 
allen ATARI ST mit minde- 
stens | MB. Im Lieferumfang 
enthalten sind über 1 MB Bei- 
spielgrafiken, gespeichert auf 
zwei doppelseitigen Disketten. 
Convert kostet 95,- DM bzw. 
95,- SFr bzw. 790,- öS. 


Andreas Pirner Software 
Bundesallee 56 

1000 Berlin 31 

Tel. 03018534350 


MNP 5 und Mailboxen bei 
BIELING 


In einem Monat beginnt die 
Firma BIELING Compu- 
tersysteme aus Reckling- 
hausen mit der Ausliefe- 
rung ihrer MNP 5-Mo- 
dems. Sie beherrschen die 
Übertragungsstandards 
V.21, V.22, V.22bis, Bell 
103 und Bell 212a und 
werden zum für MNP 5- 
Modems überaus günsti- 
gen Preis von 649,- DM 
verkauft werden. Interes- 
senten sollten sich schon 
jetzt bei BIELING melden, 


um sich eines der Modems 
zu sichern! Ebenfalls von 
BIELING angeboten wird 
jetzt das Mailboxpro- 
gramm MagicBOX ST und 
die Point-Version. Eine 
Demo-Version des Pro- 
gramms liegt jedem ver- 
kauften ATARI ST-Mo- 
dem bei. 


BIELING Computersysteme 
Spitzweg 11 

4350 Recklinghausen 

Tel. 02361/181485 


Neues vom C.ltoh C-610 


Ergänzend zu unserem Testbe- 
richt über den C-610 in der 
September-Ausgabe hat uns 
C.Itoh mitgeteilt, daß der 
Drucker jetzt tatsächlich in 
Grau lieferbar ist. Es ist abzu- 
warten, wie das neue Outfit bei 
den Kunden ankommt - bei 
C.Itoh erwartet man eine große 


Nachfrage. Die in unserem 
Bericht kritisierten Probleme 
mit der Druckbarkeit einiger 
IBM-Sonderzeichen im Ep- 
son-Modus seien mittlerweile 
behoben. Mit den neuen 
ROM, mit denen der Drucker 
jetzt ausgestattet ist, gibt es 
diese Probleme nicht mehr. 


BC-Fortan 77 


BC-Fortran77 istnun umeinen 
symbolischen Debugger und 
die Unterstützungsmöglich- 
keit durch einen 6888 1-Kopro- 
zessors erweitert worden. 
Beim Debugger wird die nor- 
male Bildschirmausgabe nicht 
gestört, da er einen eigenen 
Bildschirmspeicher verwen- 
det. Der obere Teil des Ausga- 
bebereichs enthält Daten (Va- 
riblen, Felder, Register), der 
untere Teil zeigt Quellpro- 
gramme, auf Wunsch mit 
Angabe der Laufzeit pro Fort- 
ran-Anweisung oder Disas- 
semblerausgabe. Da der De- 
bugger relativ umfangreich ist 
(ca. 100kB), wirder bei Bedarf 
nachgeladen. Für “Notfälle” 


steht weiterhin der alte Debug- 
ger zur Verfügung. Der Kopro- 
zessor kann jetzt wahlweise 
über die Library oder direkt 
angesprochen werden. Eine 
Compileroption für den 68020 
ist vorhanden, allerdings unter- 
stützt das TOS diesen Prozes- 
sor bisher nicht. Weiterhin 
wurde das Laufzeitsystem von 
BC-Fortran77 komplett übe- 
rarbeitet: Es sollte in zukünfti- 
gen Versionen nicht mehr nö- 
tig sein, die Objektdateien neu 
zu übersetzen. 


BC-Softwaretechnik Andre Köstli 
Martin-Luther-Straße 63 

7000 Stuttgart 50 

Tel. 0711/564736 
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Viczena-News 


Die Firma advanced applica- 
tions Viczena bietet einige 
Neuigkeiten an. MASKWIN ist 
ein Maskengenerator. Er ist 
Bestandteil des SPC Adi- 
PROG und erlaubt den Aufbau 
Aktiv 


Gen Demo Datei 


Schnell 


rungen gehören ab sofort zum 
Standardlieferumfang von 
SPC Modula-2 bzw. SPC Adi- 
PROG und werden den Kun- 
den im Rahmeneines kostenlo- 
sen Updaters zur Verfügung 











von Masken auf unterliegende 
Grafiken. Maskwindow ist das 
erste einer Serie von objekto- 
rientierten Windows, die auf 
der Windowschnittstelle 
SSWIS aufsetzt. ICONWIN- 
DOW ist das zweite objekto- 
rientierte Konstrukt dieser Se- 
rie. Mit diesem Programm 
besitzt man eine recht große 
Flexibilität, ohne in die Tiefen 
des AES vordringen zu müs- 
sen. Die Verwaltung von Ob- 
jekten geschieht hier ebenfalls 
über SSWiS. WPMail ist eine 
Ergänzung zum WPProg-Pa- 
ket des SPC AdiPROG und 
erlaubt aufrecht einfache Wei- 
se die Serienbrieferstellung 
mit Wordplusdokumenten. 
Die hier aufgeführten Neue- 














gestellt. Weiterhin wurde eine 
GFALIB entwickelt, um allen 
GFA BASIC-Programmierern 
den Umstieg auf Modula-2 zu 
erleichtern. In der Library sind 
alle GFA BASIC 2.0 und eini- 
ge GFA BASIC 3.0-Befehle 
enthalten. So können auch 
größere Programme durch 
weitgehend syntaktische Er- 
setzungen in Modula-2 gewan- 
delt werden. 


advanced applications 
Viezena GmbH 
Sperlingweg 19 

7500 Karlsruhe 31 
Tel. 0721-700912 


Streamer- und Belichtungs- 
service in der Schweiz 


Die vir einem Jahr in Luzern 
gegründete Firma Aha EDV 
Support AG, deren Spezialge- 
biet in der Schulung und Bera- 
tung liegt, bietet den ersten Be- 
lichtungsservice für die 
Schweiz an. Calamus- und 
Wordplus-Dokumente sowie 
ASCII-Dateien werden mit 
einer maximalen Auflösung 
von 2450 dpi je nach Wunsch 
auf Film oder Papier mit einer 
Linotronic 300 im Format A4 
oder A3 belichtet. Wem die 
Datensicherung mit Disketten 
zu aufwendig und ein eigener 
Streamer zu teuer ist, kann sei- 


ne Festplatte von der Firma 
Aha EDV Support AG strea- 
men lassen. Da die Firma den 
Kunden besucht, entstehen für 
diesen keine Umtriebe oder 
Demontagen an seiner EDV- 
Anlage. 


Aha EDV Support AG 
Suchulung, Berarung 
und Anwendung 
Zähringerstraße 21 
CH-6003 Luzern 

Tel. 041 22 51 61 





Schädliche Lüfter 


Nachdem in letzter Zeit bereits 
einige Hersteller dem Lüfter- 
krach der ATARI-Festplatten 
ein Garaus bereiten wollten, 
gesellt sich nun als weiterer 
Hersteller die Firma digital 
data deicke aus Hamburg hin- 
zu. Sie bietet einen Lüfter an, 
mit dem verhindert wird, daß 
die Festplatten den zulässigen 
Temperaturanstieg von höch- 
stens 10 Grad Celsius pro Stun- 
de erfahren. Dies sei nämlich, 
laut digital data deicke, “ein 
entschiedener Konstruktions- 
fehler” vieler auf den Markt 


gekommener Noise-Reduc- 
tion-Kits. Für DM 49,- be- 
kommt man einen Lüfter, das 
benötigte Werkzeug zum Ein- 
bau und eine genaue Einbauan- 
leitung. Wem der Einbau zu 
mühselig ist, kann sich auch 
die Arbeit vom Hersteller ab- 
nehmen lassen: Im Preis von 
49,- DM ist alles enthalten. 


digital data deicke 
Nordring 9 
3000 Hannover 1 





Update von CADja 


Unser ausführlicher Test in der 
Juni-Ausgabe befaßte sich 
auch mit dem CAD-Programm 
CADja von Computer Technik 
Kiekbusch. An der Version 1.0 
fand sich der eine oder andere 
Kritikpunkt. Mittlerweile gibt 
es eine überarbeitete Version 
1.02. Einige neue Features: 
Vor allem die Schraffurfunk- 
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tion ist sehr viel schneller und 
flexibler geworden. Der Status 
der Schraffur läßt sich löschen. 
Dadurch kann man die Schraf- 
furlinien wie bei TechnoCAD 
auch als Konstruktionslinien 
verwenden. Texte lassen sich 
nun auch nach dem Einfügen in 
die Zeichnung edieren. Die Li- 
nienstärke kann zu Kontroll- 


zwecken angezeigt werden. 
Damit sind die hauptsächli- 
chen Kritikpunkte mittlerweile 
allesamt beseitigt. Ferner ist 
mittlerweile eine umfangrei- 
che Sammlung an Symbolen 
aus den Bereichen Elektronik 
und Pneumatik enthalten. 
Weitere sollen folgen. Doch 
damit nicht genug - Autor 
Michael Rauch plant eine so- 
genannte ‘Megaversion’, die 
tatsächlich nur auf Rechnern 


mit wenigstens 2MB Haupt- 
speicher laufen soll. Features 
dieser geplanten Version: 
Doppellinie, Kreis über zwei 
Punkte, nachladbare Fonts, 
Textattribute, Ellipsenbögen, 
Bereiche drehen, komplette 
Tastatur- oder CRP-Graphik- 
tablett-Bedienung. Für diese 
Version ist allerdings noch 
kein Liefertermin avisiert. 


Adimens. Perfekt in Anwendungen. 


Ganz privat ist Peter T. Musikfan. 


Und Sammler. Den Katalog seiner Herr K. leitet die Materialverwaltung 

oft seltenen Liebhaberstücke, seiner in einem Großunternehmen. Sein 

LPs und CDs hat er mit Adimens wichtigstes Werkzeug heißt Adimens. 

angelegt. Ta ta ta taa. 2 & Es zeigt ihm Ein- und Ausgänge, 
Bestände und Bedarf. 


Hildegard P. ist verantwortlich für 

die Kundenkartei ihres Unternehmens. 
Mit Adimens ist sie immer auf dem 
neuesten Stand. Wer? Natürlich die 
Kundenkartei. 


N) DANN 


Das relationale 

Datenbanksystem Adimens hat viele 

Freunde, das ist bekannt. Bemerkenswert bei diesen 

Freunden ist, daß sie so unterschiedlich sind. Da gibt es Privatleute und 
Selbständige, kleine Unternehmen und Großunternehmen, Abteilungen und 
Verwaltungen, Wissenschaftler und Sacharbeiter. Gemeinsam ist allen, daß sie 
ihre Datenbestände mit Adimens verwalten, weil es vielseitig und leicht zu 
handhaben ist und natürlich auch, weil Adimens sich allen Bedürfnissen anpaßt. 





Kurz: eine perfekte Datenbank. Über 50 000 verschiedene Anwender haben das 
schon gemerkt und sind daher perfekt in ihren Anwendungen. 


Adimens läuft auf dem Atari und auf dem PC, aber auch auf Großrechenanlagen. 
Fordern Sie Informationen über das relationale Datenbanksystem Adimens an, 
und fragen Sie uns. 


ADI Software GmbH 
Hardeckstraße 5, D-7500 Karlsruhe 1 
Telefon (0 72 1) 57 000-0 ADI Software GmbH 


NEWS 


Cappuccino-Mailbox 


In Bottrop ist jetzt die Cappuc- 
cino-Mailbox online. Cappuc- 
cino istein neues Jugendmaga- 
zin, das mit der Mailbox Arti- 
kel der. im Bundesgebiet ver- 
teilten Lokal- und Regionalre- 
daktionen sammelt und ver- 
waltet. Trotz dieser Aufgabe 
ist die Mailbox auch für 
“Nichtredakteure” frei zu- 
gänglich. Sie bietet zusätzlich 
zum Standard-Mailboxpro- 
gramm die Möglichkeit, mal in 
den Betrieb der Zeitung reinzu- 
schnuppern und sich aktuelle 
Artikel der Zeitung anzusehen 


und vielleicht auch selbst ein- 
mal an der redaktionellen Ar- 
beit teilzunehmen. Über das 
CTS-Brett der Mailbox, die 
dem MagieNET angeschlos- 
sen ist, ist es auch auch mög- 
lich, Bestellungen oder Infor- 
mationen über aktuelle Soft- 
ware, z.B. Fremdsprachensys- 
teme für Griechisch, Kyrillisch 
und Hebräisch auf ST und MS- 
DOS, aufzugeben. Die Mail- 
box hat die Rufnummer 02041/ 
27778 und arbeitet mit den 
Parametern 8 Datenbits, keine 
Parität, | Stopbit. 
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Mit FiBu++ kann man jetzt ein 
Finanzbuchhaltungspro- 
gramm kaufen, das man auch 
ohne lange Einarbeitungszeit 
bedienen kann. Das Programm 
hält sich streng an das Bilanz- 
richtlinien-Gesetz. Ein langes 
Warten auf den Drucker fällt 
hier flach: Ein Drucker-Spoo- 
ler ist eingebaut. Erfreulich ist, 
daß das gesamte Programm 
mausgesteuert ist. So können 
Sie beispielsweise zwar eine 
Kontonummer per Hand ein- 
geben, sie aber auch einfach 
anklicken. FiBu++ kann wahl- 
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weise monatlich automatisch 
oder per Hand buchen. Alle 
Listen können auf dem Druk- 
ker ausgegeben werden. 
FiBu++ kostet 498,- DM. Wer 
erst eine Demoversion haben 
möchte, kann diese für 40,- 
DM ersteigern, der Preis wird 
auf die Vollversion angerech- 
net. 


Softwareentwicklung und 
Computergrafik 

Matthias Krauß 
Espanstraße 76 

8510 Fürth 

Tel. 09111794584 








Modula-News 


Vielleicht haben sich viele 
Modula-2-Programmie- 
rer(innen) schon mal ge- 
wünscht, Kontakte mit ande- 
ren Modula-2-Benutzern zu 
knüpfen. Doch wie sollman an 
interessierte Leute herankom- 
men? Zwei Informatikstuden- 
ten aus München haben sich 
vorgenommen, eine Art Dis- 
kettenzeitung, mit Artikeln 
über Modula-Compiler, Tips 
und Tricks, Testberichten etc. 
herzustellen. Wer mitmachen 
möchte, sollte folgende “Spiel- 
regeln” beachten: Der Quell- 
text muß beigefügt werden. 
Am besten sollte auch eine 
kurze Dokumentation beige- 
legt werden. Natürlich darf 
auch die Kontaktadresse für 


Nachfragen nicht fehlen. Soll 
die Diskette wieder zurückge- 
schickt werden, bitte Rückpor- 
to beifügen. Fehlen darf auf 
keinen Fall eine kurze Mittei- 
lung in folgendem Stil: 
“(nicht)kommerzielle Nut- 
zung gestattet, frei von Rech- 
ten Dritter, etc. pp”. Sobald 
genügend Programme gesam- 
melt sind, werden auch alle 
Routinen auf einer MAXON- 
Sonderdiskette veröffentlicht. 


Andreas Schallmaier 
bei Golgath 
Waskestraße 6 

8000 München 19 


Andreas Kisslinger 
Haberstraße 10 
8000 München 50 





Wordplus 3.15 


Ist_Wordplus wird jetzt von 
ATARI in der offiziellen Ver- 
sion 3.15 ausgeliefert. Die 
Features entsprechen dem 
Testbericht der ST Computer 
12/88, in der bereits ausführ- 
lich auf die Vorabversion 3.11 
eingegangen wurde. Wesentli- 
che Neuerungen sind Tastatur- 


kombinationen für die Menü- 
leiste, Großbildschirmunter- 
stützung. Dem Programm wer- 
den neuerdings das Programm 
lst_Xtra sowie eine Dateiver- 
waltung beigelegt. 


Alle ATARI-Fachhändler 
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NEWS 





RAFFAEL 


Mit Raffael bietet die Firma 
Zeller Computer$ nun ein 
Grafiktablettan. Esbesitzteine 
30x30 cm große aktive Fläche, 
ausreichend für DIN A 4 hoch 
und quer. Als Eingabesystem 
dient entweder ein 4-Button- 
Cursor oder ein 3-Tasten-Stift, 
die beide kabellos angeschlos- 
sen werden. Raffael wird an 
der seriellen Schnittstelle des 
STs angeschlossen und über 
ein mitgeliefertes Treiberpro- 
gramm vom System angespro- 


chen und emuliert die Maus. 
Weiterhin können bis zu 23 
Funktionstasten und 176 akti- 
ve Flächen mit Maus- und 
Tastaturmakros belegt werden. 
Der Preis für Raffael liegt bei 
1798,- DM inkl. Software, In- 
terface, einem Eingabegerät 
(Stift oder Cursor) nach Wahl 
und Bedienungsanleitung. 

Zeller ComputerS 

Hauptstraße 53 


7230 Schramberg 
Tel. 07422/1606 


Technobox CAD/]1 


Studentenversion 


Das CAD-System für den ST, 
das zu einem Preis von 1698,- 
DM angeboten wird, istabdem 
15.10.89 für Studenten und 
Schulen zu einem Preis von 
698,- DM erhältlich. Neu im 
Lieferumfang der Technobox 
und speziell für die CAD-Aus- 
bildung existiert vom Techno- 
box CAD/I-System ein Paket 
mit 10 Nutzungslizenzen zum 
Preis von 3990,- DM. Die 
Aktion ist bis zum 15.12.89 
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beschränkt und soll je nach 
Resonanz eine Dauereinrich- 
tung werden. Die Studenten- 
version, die keinerlei Unter- 
schiede zu der Originalversion 
zeigt, ist bei jedem Techno- 
box-Fachhändler zu beziehen. 


Technobox Software GmbH 
Kornharpener Straße 122a 
4630 Bochum 1 

Tel. 02341503060 


Fickmann- 
Wechselplatte 


Die für ihre leisen und schnel- 
len Festplatten bekannte Firma 
Eickmann bietet ab sofort auch 
eine Wechselplatte an. Sie hat 
ein leises Betriebsgeräusch 
[kleiner 41 db(A)], wird mit 
dem neuen HDPlus- und Ca- 
che-Programm geliefert (beide 
unterstützen den Media- 
Wechsel, auch bei unterschied- 
licher Partitionsgröße), die 
auch MS-DOS-Medien verar- 
beiten, besitzen einen durchge- 
schliffenen DMA-Bus, sind 


autobootfähig und von außen 
adressierbar. Im Lieferumfang 
enthalten ist das schon bekann- 
te HDPlus von Eickmann, das 
HDU von Application Sy- 
stems, der Optimizer von FPS, 
das Virus Filter Set und das 
Cache-Programm von Eick- 
mann. 

Eickmann Computer 

In der Römerstadt 249 


6000 Frankfurt 90 
Tel. 0691763490 


WordPerfect ST 


Ab Ende Oktober wird die 
WordPerfect-Version 4.1 für 
den ATARI ST ausgeliefert, 
die dem Funktionsumfang der 
WordPerfect 4.2 entspricht. 
Die ATARI-Version bietet 
nicht nur die gesamte Funk- 
tionsvielfalt der WordPerfect- 
Textverarbeitung, sondern 
nutzt auch die Vorteile der 


Falsche 


In unserer letzten Ausgabe 
haben wir auf Seite 10 die 
Nummer der schweizer 


68000er-Rechner. Natürlich 
kann das Programm über Maus 
und Tastatur gesteuert werden. 
WordPerfect wird exklusiv 
über ATARI vertrieben. 
WordPerfect Software GmbH 
Frankfurter Straße 33-35 
6236 Eschborn 
Tel. 06196/904-0 


Nummer 


AAV-Mailbox falsch abge- 
druckt. Die richtige Nummer 
lautet 41-1-3837054. 


“Dem Floppycontroller Dampf 
gemacht” 


Leider hat sich ein Fehler in 
den Artikel in der ST 7/8 ’89 
eingeschlichen. Unter ‘Auf- 
bauhinweise” findet sich der 
Satz: Zum Schluß stellen Sie 
die Masse- (Pin 14 Ym 2149) 
und +5 Volt-Verbindung (Pin 
15 Ym 2149) her. Wie auch 
richtig aus dem Schaltplan 
hervorgeht, sind die IC-Be- 
zeichnungen leider ver- 


tauscht, d.h. die Massever- 
bindung geht nach Pin 14WD 
1772, die +5 Volt-Verbin- 
dung nach Pin 15 WD 1772. 
Das IC Ym 2149 wird also 
nur an einer Stelle (Pin 15) 
mit der Schaltung verbun- 
den, die Betriebsspannung 
wird nur am FDC WD 1772 
abgegriffen. 





NGE 


ITHMeige il &ärlelsteleige 
stellt sich vor 





Mit ihrem schnellen Intel 82786- 
Grafikprozessor und ihren viel- 
fältigen Auflösungen bietet die 
MAXON Graphic Expansion 
(MGE) die ideale Profi-Grafik- 
erweiterung für alle Mega ST- 
Besitzer mit geeignetem Moni- 
tor (z.B. MultiSync oder Groß- 
bildschirm). 


Sie besticht durch ihren Leistungsum- 
fang und ihre Flexibilität. Dank des 
GDOS-VDI-Treibers sind GEM-Pro- 
gramme lauffähig. 


Egal ob Sie Desktop Publishing (z.B. 
Calamus) oder anspruchsvolle Farb- 
grafik einsetzen wollen, die MGE ver- 
Nee ST EICHENERTERSIRLETUCKEIT NS 
Workstation! 


Auflösungen: 


1. 13,75 MHz, 800 x 600 Bildpunkte, maximal 
256 Farben interlace, 50 Hz Halbbildfre- 
quenz (für Video- und Genlockanwendungen); 

2. 27,5 MHz, 640 x 480 Bildpunkte, maximal 
256 Farben aus 262 144 nor-interlace, 66 Hz 
EIRUCTNTF 

3. 27,5 MHz, 800 x 600 Bildpunkte, maximal 
256 Farben aus 262 144 interlace, 80 Hz 
Halbbildfrequenz; 

4.55 MHz, 896 x 684 Bildpunkte, maximal 16 
Farben aus 262 144 non-interlace, 67 Hz Bild- 
frequenz; 

5.55 MHz, 1280 x 1024 Bildpunkte, maximal 
16 Farben aus 262 144 interlace, 65 Hz Halb- 
bildfrequenz; 


6. 110 MHz, 1280 x 960 Bildpunkte, monochrom 
nor-interlace, 60 Hz Bildfrequenz. 


Mitgelieferte Software: 


* Hardware-Treiber 
« GDOS-VDI-Treiber 
 Bindings für TURBO-C 
« Bindings für Assembler 


WEIEIEHeliuteiitehtch) 
erhalten Sie bei: 


MAXON Computer GmbH 
Schwalbachersitr. 52 
6236 Eschborn 

Tel.: 0 6196 /4818 11 

FAX: 06196/41885 








Gamma 


VEKTOR-Plus SIMULA 


Die Firma Astrosoft liefert für 
ihr pixelorientiertes Grafikpro- 
gramm Gamma_04 jetzt auch 
das Programm Gamma-VEK- 
TOR-Plus aus. Damit kann 
jedermann Rastergrafiken mit 
dem Programm-Modul AL- 
TERNATE-VEKTOR einfach 
und schnell in Vektorgrafiken 
umwandeln. Ein Originalpro- 
gramm Gamma_04 auf zwei 
Disketten, komplett mit Hand- 
buch und Box, kostet 169,- 
DM. Die Vorläufer-Version 03 


(weniger Sonderfunktionen) 
ist weiterhin für DM 119,- er- 
hältlich. Gamma-VEKTOR- 
Plus auf zwei Disketten, kom- 
plett mit Handbuch und Box, 
kostet DM 249,-. Für Schulen 
und Universitäten etc. werden 
Sonderkonditionen und Mehr- 
fachlizenzen gewährt. 


Astrosoft + Optik 
Altvaterstraße 7 
8728 Haßfurt 





Neuer 
NEC-Drucker 


Mit dem Pinwriter P2plus bie- 
tet NEC ab November den 
Nachfolger des P2200 an. Vie- 
le Optionen wurde gegenüber 
dem Vormodell verbessert, so 
druckt der P2plus jetzt mit 192 
Zeichen pro Sekunde. Außer- 
dem wurden sogenannte 
“High-Speed-LQ-Fonts” ent- 
wickelt, die Korrespondenz- 
druck mit bis zu 160 Zeichen 
pro Sekunde erlauben. Natür- 
lich hat auch der P2plus eine 


Vortex plus 20-MB Festplatte 
Vortex plus 60-MB Festplatte 


Turbo-C mit Ass. + Debugger V1.1 dt. 


Signum Il deutsch 


Megamax Modula Il deutsch . 


Stad V1.3 deutsch 
PC-Speed MS-Dos-Emulator 


BTX-Term an Postmodem deutsch 

N-N-Disk 3.5-Z DD. DM 1,99 Psion Chess. 
LDW Power Calc dt. DM 209,00 Cyber Paint2 DM 
Amstrad 24-Nadeldrucker LQ 3500 dt M 
TDI-Modula V3.01 Standard englisch 





Auflösung von 360x360 Punk- 
ten pro Inch. Der eingebaute 
Traktor arbeitet wahlweise mit 
Zug oder Schub. Außerdem ist 
eine Paper-Park-Funktion ein- 
gebaut. Mit 5 zusätzlichen 
Schriften wird das Gerät eine 
echte Bereicherung für jeden 
Druckertisch. Ein Test folgt in 
einer der nächsten Ausgaben. 


NEC Deutschland GmbH 
Postfach 801309 
8000 München 80 


DM 849,00 
. DM 1399,00 
259,00 
339,00 
309,00 
139,00 
499,00 
249,00 
59,95 
109,00 
599,00 
149,00 


DM 


Kostenlose Prospekte, 
auch für Amiga und IBM von 


Cwrs 
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CWTG Joachim Tiede 
Bergstraße 13 # * & 7109 Roigheim 
Tel. TBrk 06298/3098 von 17-19 Uhr 











Allen, die eigene Erfahrungen 
mit objektorientierter Pro- 
grammierung sammeln wol- 
len, aber nicht mit dem bisher 
dafür erforderlichen Kleingeld 
gesegnet sind, bietet sich nun 
eine attraktive Alternative: 
SIMULA, das bisher nur auf 
größeren Rechnern erhältlich 
war, ist nun auch für den ST 
verfügbar. Zusätzlich zur ob- 
jektorientierten Programmie- 
rung enthält SIMULA komfor- 
table Werkzeuge für die pro- 
zeßorientierte diskrete Simula- 
tion, mit deren Hilfe auch gro- 
ße und komplexe Systeme 
modelliert werden können. 


Weitere wesentliche Merkma- 
le sind die volle Typ-Prüfung 
zur Übersetzungszeit, die auto- 
matische Speicherverwaltung 
durch einen “Garbage-Collec- 
tor” und die aufgrund der Stan- 
dardisierung gute Portabilität 
von SIMULA-Programmen. 
SIMULA kann für DM 198,- 
bezogen werden über 


SIMULA-Team 

Universität Dortmund / IRB 
Postfach 500 500 

4600 Dortmund 50 


e-mail: simula@unido.uucp 
simula@unido.bitnet 





GFA-BASIC-Shell 
v1.5 


Wem die von GFA mitgeliefer- 
te Shell zum GFA-BASIC 3.0 
zu wenig Komfort bietet, kann 
nun für DM 20,- eine profes- 
sionelle Shell bekommen: Sie 
verwaltet alle GFA-BASIC- 
Unterprogramme ab der Ver- 
sion 2.0x, unterstützt die Op- 
tionen für die 3.0x-Version des 
Compilers/Linkers, bietet 


//T 


„das PLUS für jede Festplatte ! 


sämtliche Dateioptionen des 
Desktops, beinhaltet einen 
Accessory-Compiler für Ver- 
sion 2.0x und vieles mehr. Die 
Shell kann bezogen werden 
über 

DAR's 

Daniel Redanz 

Kirchstraße 91 

4353 Oer-Erkenschwick 





* GEM-Programme mit allen TOS-Versionen 
automatisch starten 
* Auswahl der ACC's und PRG's bei jedem 
Bootvorgang möglich 
* Anlegen, ändern oder löschen der Batch- 
Dateien in BOOT IT - ohne separaten Editor 
* Batch-Files mit - Accessories 
- AUTO-Ordner Programme 
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- Zugriffspfad u. Name der 
AUTOSTARF Anwendung 
- BLITTER- Einstellung 
- Auflösung im Farb-Modus 
* Verwaltung von vier auflösungs- abhängigen 
DESKTOP's- auch für Großbildschirm 
* resetfestes Datum / Uhrzeit bei Systemen 
ohne batterie-gepufferte Echtzeit-Uhr 
* Auswahl über Maus oder Tastatur 
* mit Handbuch. Update- u. Hot-Line-Service 
* DM 69- zuzügl DM 5- Versandkosten bei 
V-Scheck/Vorkasse ( Nachnahme: DM 750 ) 
* Bezug über ATARI-Systemfachhändler oder 








direkt bei 





NEERVOORT.EDV Jürgen Neervoort Neufelder Str. 21 4152 Kempen 3 
Telefon: 02151/777322 


( kein Ladenverkauf ! ) 





SOFTWARE 





cript 


Textverarbeitung a la Mac 


Wer ein ST-Anwender der ersten Stun- 
de ist, dem ist vielleicht noch der 
Rechtsstreit zwischen ATARI und 
Apple wegen der ähnlichen Benutzer- 
oberfläche, dem Desktop, in Erinne- 
rung. Bald darauf kamen die ersten 
Mac-Emulatoren, die es erlaubten, 
Mac-Programme auf dem ST laufen zu 
lassen. Nun scheint die nächste Gene- 
ration der Gemeinsamkeiten eingeläu- 
tet zu werden: Es werden auf dem ST 
Programme geschrieben, die Mac-Pro- 
grammen doch sehr ähnlich sehen. Be- 
währte Mac-Standards auf dem ST? 
Das neueste Produkt von Application 
Systems scheint es zu beweisen, denn 
wer das Mac-Programm WriteNow 
kennt, wird sich sofort in Script hei- 
misch fühlen. 


Nachdem 1987 Signum! seinen Sieges- 
zug auf dem ATARI ST begonnen hat, 
kommt jetzt die zweite Textverarbeitung 
von Application Systems auf den Markt. 
Sie soll wohl diejenigen ansprechen, 
denen Signum! zu teuer und/oder zu 
umständlich in der Bedienung ist. Gleich- 
zeitigmuß man Script bei einem Preis von 
DM 198,- aber auch als Konkurrenz zu 
Wordplus ansehen, da sie im gleichen 
Preisbereich angesiedelt sind. 
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Wichtigster Punkt von Script ist in jedem 
Fall seine leichte Bedienbarkeit, denn die 
Funktionen sind übersichtlich und fast 
alle Menüpunkte auf Tastenkombinatio- 
nen gelegt (s. Bild 1). Es besteht sogar die 
Möglichkeit, die Tastenkombinationen 
mittels eines Resource-Construction-Sets 
individuell zu verändern, da Script sich 
die entsprechenden Buchstaben aus den 
Pull-Down-Menüs holt. 


Scriptkann maximal vier Texte gleichzei- 
tig verwalten, zwischen denen man mit- 
tels Tastendruck hin- und herblättern 
kann. Accessories sind im Gegensatz zu 
Signum! zugelas- 


sen. Eins wird Script Datei 








Edieren Fornatierung Font Attribute Paraneter Optionen 


re Witz daran ist, daß Textattribute wie 
fett, kursiv, unterstrichen usw. automa- 
tisch übernommen werden. 


Script verfügt über eine schnelle Scroll- 
geschwindigkeit, die zwar nicht an Tem- 
pus herankommt, aber es handelt sich hier 
auch nicht um einen Editor zum Program- 
mieren. Leider läuft der Cursor derzeit 
noch etwas nach, so daß man auch schon 
mal über sein Ziel hinausschießen kann. 
Dies kommt ja leider bei vielen Program- 
men vor und läßt sich wohl GEM-bedingt 
nicht sauber lösen. 


Signum!s Erbe 


Die Textdarstellung erfolgt je nach Zei- 
chensatz proportional oder unproportio- 
nal, wobei wir bei einem weiteren wichti- 
gen Vorteil Scripts angekommen sind, 
denn es arbeitet mit Signum!-Zeichensät- 
zen. Damit stehen Script über 900 ver- 
schiedene Zeichensätze zur Verfügung, 
die jateilweise schon professionell einge- 
setzt werden (s. Bild 2). Mitgeliefert 
werden drei Zeichensätze der Rokwel- 
Familie (11 Punkt prop., 11 Punktunprop. 
und 15 Punkt). Genau wie in Signum! 
lassen sich diese Zeichensätze in den 
Arbeitsspeicher laden und in einer Dia- 
logbox anzeigen (Bild 3), so daß man 
einen schnellen Überblick über das Aus- 
sehen der Fonts bekommt. In Script wur- 
de die Box sogar insoweit erweitert, daß 
man zwischen den Zeichensätzen blättern 
kann. 

Im Gegensatz zu Signum!, das maximal 
sieben Fonts verwalten kann, stehen ei- 
nem in Script maximal 256 zur freien 
Auswahl. In Anbetracht desewig währen- 
den Speicherplatzmangels der ST-Besit- 
zer sollte man sowieso nicht so viele Zei- 
chensätze laden, vom rein typografischen 
Standpunkt einmal abgesehen. In der 
Regel wird man fast immer dieselben 
Zeichensätze verwenden. In der Menülei- 











sogar gleich mit- 
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plus- und MS- 
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mat)-Dateien in 
sogenannte 
Script-Import- 
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mittels der Script- 
Funktion ASCH 
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sen werden kön- 
nen. Der besonde- 








Bild 2: In Script lassen sich bis zu 256 Signum!-Zeichensätze verwenden. 
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Bild 1: Die Menüleiste Scripts 
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Zeichensatz : FUTUR-13 
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Bild 3: Die Zeichensätze lassen sich übersichtlich anzeigen. 


ste werden maximal zehn von ihnen ange- 
zeigt. Ab elf erscheinen in der Leiste 
Pfeile, über die weitergeblättert werden 
kann. Ein Manko ist, daß die Menüleiste 
dabei immer wieder zuklappt und von 
neuem heruntergeklappt werden muß. 
Aber damit läßt sich leben; es ist sowieso 
nicht sinnvoll, mehr als zehn Zeichensät- 
ze in einem Dokument zu verwenden. 
Zeichensatzeinstellungen lassen sich 
wahlweise zusammen mit Attributen wie 
z.B. fett, groß, klein usw. auf die zehn 
Funktionstasten legen, damit man schnell 
zwischen ihnen wechseln kann (Bild 4). 
Hat man einen festen Fontstamm, den 
man ständig benötigt, kann man sich ein 
leeres Dokument mit den Fonts zusam- 
men abspeichern und spart sich so das 
ewige Laden. 

Übrigens lassen sich auch die übrigen Pa- 
rameter abspeichern, durch die u.a. der 
Pfad für die Zeichensätze, das Seitenfor- 
mat, der Druckertreiber usw. bestimmt 
werden. 


Leicht markiert 


Mit Script lassen sich Texte mit der ge- 
drückten Maustaste leicht zeichenweise 
markieren. Will man dagegen größere 
Abschnitte selektieren, markiert man ein- 
fach den Beginn des Abschnittes, geht an 
dessen Ende und drückt Control-Shift. 





ren will. Auch das 
Löschen von Tex- 
ten geht ähnlich 
einfach vonstat- 
ten. Dazu muß man den zu löschenden 
Text markieren und drückt anschließend 
einfach die Backspace-Taste. Sollte man 
aus Versehen, oder weil man es sich an- 
ders überlegt haben sollte, seine Entschei- 
dung bereut haben, hilft ein Druck auf die 
Undo-Taste, und der Text ist wieder da. 
Dies funktioniert aber nur einen Arbeits- 
schritt rückwärts (1 Undo-Ebene). 













Optionen 


IV Undo 
- Darstellung = “ 


Seitenfornat ... 
Papierart .., 
Druckerparaneter. .. 
Druckertreiber ... 


Textpar, übernehnen 


2 Arbeitshereich, - 
y Seite 
Kopf/Fußbereich a 
Fußnoten U 
Funktionstasten 
Zeichensatz AZ 











elle Absatz gleich selektiert wird, da ein 
Lineal nur für diesen Bereich gilt. Natür- 
lich lassen sich verschiedene Linealein- 
stellungen in einem Text benutzen. Die 
Maßskala kann zwischen Zoll und cm 
umgestellt werden, wodurch ein exaktes 
Arbeiten möglich wird. 

Nicht zu vergessen ist, daß man im Lineal 
auch zwischen links- und rechtsbündi- 
gem Flatter-, Blocksatz und zentrierter 
Darstellung wählen kann. Auch den Zei- 
lenabstand kann man hier pixelgenau 
(5-99) verstellen. Warum hier die Einheit 
Pixel und nicht Punkt Cicero gewählt 
wurde, ist allerdings unbegreiflich, da 
man, wenn man schon diese Möglichkeit 
einbaut, dies auch noch hätte berücksich- 
tigen können, denn nur so wäre ein typo- 
grafisch genaues Schreiben möglich. 
Leider verfügt Script über keine automa- 
tische Trennhilfe, d.h. man muß gegebe- 
nenfalls jedes Wort von Hand trennen. 
Dazu ist eine weiche Trennung als Ta- 
stenkombination vorhanden. Schöner 
wäre hier ein Trennlexikon, das die nor- 
malen Trennregeln beherrscht und für das 
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zentriert oder nu- Font : FUTWR-I3 [© [2] 
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ren. Er wird ein- 
fach mittels der 
Maus an der ge- 
wünschten Stelle 
der Maßskala plaziert und läßt sich dort 
auch leicht verschieben. Ebenso kann 
man den linken und rechten Rand und 
Einrückungen festlegen. Praktisch ist, 
daß beim Anklicken des Lineals der aktu- 





Bild 4: Zeichensätze kann man inklusive Schriftattribute auf 
Funktionstasten legen. 


man eine erweiterbare Ausnahmedatei 
erstellen könnte. Zwar verfügt Script über 
keinen Spaltensatz, doch auch schon bei 
normalem Blocksatz kann eine Trennhil- 
fe von Nutzen sein. 
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Will man bestimmte Textabschnitte auf 


keinen Fall durch den automatischen Sei- 
tenumbruch unterbrechen lassen, kann 
man Absätze klammern, d.h. sie werden 
dann auf einer Seite komplett dargestellt. 
Gegebenenfalls wird eine neue Seite 
angefangen. 


STX stellt sich vor 


Natürlich gehört zu einer neuen Text- 
verarbeitung auch ein neues Dateiformat; 
in diesem Falle handelt es sich um das 
Script-Text-Format (STX). In ihm sind 
die verwendeten Zeichensätze und natür- 
lich der gesamte Text mit Textattributen 
usw. enthalten. Darüber hinaus kann 
Script auch ASCII-Dateien hinzuladen. 
Leider ist eben nur ein Hinzuladen mög- 
lich, wodurch man gezwungen ist, zuerst 
einen STX-Text anzulegen, wenn man 
eine ASCII-Datei laden möchte. Hier ist 
Wordplus weniger wählerisch. 


Script bietet auch die Möglichkeit, Bilder 
im Text zu positionieren. Hier ist es aber 
ein großer Nachteil, daß man dabei ver- 
nachlässigt hat, eine freie Positionierbar- 
keiteines Bildes als Objekt zu implemen- 
tieren. Ein Bild wird von Script leider nur 
als quasi großer Buchstabe angesehen. 
Ein Formsatz bzw. freies Umfließen eines 
Bildes ist nicht möglich, da der Cursor die 
Bildhöhe annimmt (s. Bild 5). Diese 
Funktion ist also nur für Bilder ohne ne- 
benstehenden Text verwendbar. 


Positiv dagegen fällt auf, daß man Bild- 
ausschnitte frei bestimmen kann. Dazu ist 
nach dem Laden des Bildes ein Gummi- 
band vorhanden. Ferner kann man die 
Bildgröße über eine Dialogbox oder mit 
der Maus verändern. Für Freunde speziel- 
ler Effekte kann man das Bild natürlich 
auch unproportional vergrößern, sprich 
verzerren. Script akzeptiert als Bildfor- 
mate das 32k-Screen- (PIC od. DOO), das 
Signum!- (1??), das STAD- (PAC) und 
das GEM-Image-Format (IMG). Letzte- 
res ist allerdings auf 640 x 400 Pixel be- 
schränkt. 


Zeigt her eure Füße 


Fußnoten sind für professionelle Texte 
unabkömmlich. Script unterstützt konti- 
nuierlich durchnumerierte, bei denen kei- 
ne Nummernwiederholungen vorkom- 
men dürfen. Es läßt sich aber eine Start- 
nummer angeben. Bilder sind dort nicht 
zugelassen, was ja auch keinen Sinn ergä- 
be. Sind Fußnoten zu lang, werden sie 
automatisch auf die nächsten Seiten über- 
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Bilder sind Buchstaben! \--- Cursor 











Bild 5: Bilder sind nur als Buchstaben ladbar. Dadurch ist kein Umfließen des Bildes möglich, da der 
Cursor die Bildhöhe annimmt. 
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Bild 7: Das Druckermenü Scripts 


nommen. Zum Edieren der Fußnote öff- 
net sich ein Fußnotenfenster, in dem auch 
ein Lineal mit seinen Formatierungsmög- 
lichkeiten zur Verfügung steht. 


Neben den Fußnoten kann man eine auto- 
matische Seitennumerierung einstellen 
und Fuß- und Kopfzeilen eingeben. Bei 
letzteren besteht die Möglichkeit, sie 
wahlweise auf der rechten, linken oder 
auf beiden Seiten auszugeben. Auch hier 
steht ein Lineal zur Verfügung. 


Eine praktische Idee ist das Einfügen von 
aktueller Zeit und Datum an der Cursor- 
position durch Anklicken in der Menülei- 
ste. Man kann dabei zwischen einer Text- 
oder Symbolausgabe wählen. Bei letzte- 
rer erscheint ein Symbol auf dem Bild- 
schirm, das ein Platzhalter ist, und wo- 
durch erst beim Ausdruck das aktuelle 
Datum bzw. Zeit eingefügt wird. So kann 
man sich z.B. ein leeres Briefformular 
erstellen und hat automatisch immer das 
richtige Datum. 


Bei leeren Formularen empfiehlt sich 
übrigens immer der Name NAMEN- 
LOS.STX, da bei diesem Namen nur die 
Funktion Speichern als zum Abspeichern 
des Textes benutzt werden kann, wodurch 
ein Überschreiben des Leerformulars ver- 
hindert wird. 


SOFTWARE 


Die Funktionen Undo, Lineal, Symbole 
und Platz lassen sich übrigens auch ab- 
schalten. Schaltet man die Symbole ein, 
werden neben Uhrzeit und Datum auch 
Fuß- und Kopfzeilen, Seitennummern 
und Trennsymbole angezeigt (s.Bild 6). 
Bei Platz werden Tabulatoren, Seiten-, 
Zeilenende usw. als Zeichen dargestellt. 


Schwarz auf weiß 


Beim Drucken kann Script natürlich wie- 
der auf die riesige Auswahl von Drucker- 
zeichensätzen Signum!s zurückgreifen. 
Es stehen eine große Anzahl von Drucker- 
treibern zur Verfügung, mit denen so 
ziemlich alle gängigen Drucker angesteu- 
ert werden können. Ähnlich wie bei ande- 
ren Application-Programmen können 
Papierart und Druckerparameter für 9- 
Nadel-, 24-Nadel- und Laserdrucker ein- 
gestellt werden. Es läßt sich zum Drucken 
zwischen Grafik- (schön) und Draftaus- 
druck (schnell) wählen, wobei bei letzte- 
remnoch die Wahl zwischen proportiona- 
lem und unproportionalem Druck besteht 
(s. Bild 7). Ferner kann man seine Werke 
mit und ohne Bilder zu Papier bringen. 
Zuletzt gibt es noch einen Leckerbissen 
für alle Handbuchschreiber: Man kann 
den linken Rand für gerade und ungerade 
Seiten verschieden einstellen. 


Fazit 


Script bietet für sein Geld schon eine 
ganze Menge. Obesallerdings gegen den 
übermächtigen Konkurrenten Wordplus 
ankommen wird, sei noch dahingestellt. 
Seine Vorteile liegen eindeutig bei den 
Zeichensätzen und Formatierungsmög- 
lichkeiten, den besseren Ausdruck nicht 
zu vergessen. Nachteile zeigen sich aller- 
dings dagegen in der Bildpositionierung, 
der Trennhilfe und nicht zuletzt auch im 
Lieferumfang, denn Wordplus wird neu- 
erdings mit Dateiverwaltung, Serien- 
brieferstellung und Ist-Xtra ausgeliefert. 
Trotzdem glaube ich, daß Script seinen 
Weg machen wird, damit Sicherheit, wie 
bereits oben erwähnt, viele, die von Sig- 
num! abgeschreckt sind, aufes einsteigen 
werden. Hinzu kommt, daß sich mit 
Script dank seiner Scrollgeschwindigkeit 
und seiner Bedienungsfreundlichkeit 
auch recht flott arbeiten läßt. 


Martina Pfahl 
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Application Systems /l/ Heidelberg 
Englerstr. 3 

6900 Heidelberg 

Tel.: 06221/300002 
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HARDWARE 


Modems 


Der Anschluß zur Außenwelt 


Um Ihnen eine Übersicht des heutigen 
Stands bei Modems zu geben, haben 
wir die Modelle der bekanntesten 
Anbieter getestet. Es wurden lediglich 
diejenigen getestet, die auch mit 2400 
Baud (gleich zirka 240 Zeichen pro 
Sekunde) Übertragungsgeschwindig- 
keit arbeiten, da langsamere Baud- 
Raten aus der “Mode” kommen und 
kaum mehr verlangt werden. 


Wenn Sie Bildschirmtext betreiben 
möchten, sollten Sie sich Ihre Entschei- 
dung nochmal gründlich überlegen: 
Möchten Sie wirklich? Wenn Sie dann 
immer noch möchten, suchen Sie sich, 
sofern Sie nicht in einer Großstadt woh- 
nen, ein Modem bzw. einen Akustikkopp- 
ler aus, der auch 1200/75 Baud hat 
[1200 Baud empfangen, 75 Baud senden 
gähn)]. 


Beim Test ist zu beachten, daß nur die 
wichtigsten Ergebnisse in einer über- 
sichtlichen Tabelle festgehalten sind. 
Dadurch können Sie sich einen schnellen 
Überlick über die Ergebnisse des Tests 
verschaffen. Alle anderen Testergebnis- 
se, die nicht in die Tabelle passen, können 
Sie in diesem Artikel finden. 


Was ist wichtig? 


Zuerst sollten Sie sich überlegen, ob Sie 
nur ab und zu Datenfernübertragung be- 
treiben möchten, oder ob Ihr Hobby aus- 
giebiger betrieben werden soll. Wenn Sie 
weniger als ein Mal pro Woche Daten 
übertragen wollen, reicht auch ein Aku- 
stikkoppler. Hier steht Ihnen mit 2400 
Baud nur das Dataphon 2400 B zur 
“Auswahl”. Das Dataphon hat einen ent- 
scheidenden Nachteil: Man kann sich 
nicht in Mailboxen bzw. Datensysteme 
einwählen, die mit einem Discovery 2400 
C-Modem arbeiten. Erfahrungsgemäß 
machen das jedoch ca. 40-50% aller 
Mailboxen. Mit 300 Baud konnte keine 
Mailbox aufgestöbert werden, die das 
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Dataphon 2400 B nicht gemeistert hätte. 
Ein weiterer Nachteil: Sobald die Verbin- 
dung über mindestens eine Fernvermitt- 
lungsstelle geht, wird die Störanfälligkeit 
des Kopplers so hoch, daß mitunter nur 
noch Datenmüll auf dem Bildschirm er- 
scheint. 


Der Löwenanteil der getesteten Modems 
ist nicht durch die Post zugelassen. Wenn 
Sie aber unbedingt auf dem Vorhaben 
beharren wollen, ein postalisch zugelas- 
senes Modem zu ersteigern, bleiben Ih- 
nen nur wenige Möglichkeiten: Das Fury- 
und das Mikrolink-Modem. Natürlich 
können Sie auch direkt bei der Post ein 
Modem bestellen (wenn Sie Krösus sind). 
Ein Wort dazu: Wir wollten auch Mo- 
dems von der Post testen, die uns jedoch 
nicht kostenlos zur Verfügung gestellt 
worden wären. Für jedes getestete Mo- 
dem hätten 65,- DM Anschlußgebühr und 
eine Grundgebühr von 27,- DM plus 5,- 
DM monatlich bezahlt werden müssen. 
Sollten Sie also aus irgendeinem Grund 
ein postzugelassenes Modem benötigen, 
entscheiden Sie sich besser für eines der 
beiden getesteten. 


MNP-Standard 


Einige Modembhersteller bieten bereits 
Modems an, die nach dem MNP 5-Stan- 
dard arbeiten. In diesen Geräten ist eine 
Datenkomprimierungsroutine eingebaut, 
die die effektive Übertragungsge- 
schwingkeitumein Vielfaches erhöht. Da 
noch nicht alle Hersteller diese Modems 
anbieten können, sind die Ergebnisse des 
MNP 5-Tests nicht in die Bewertung 
eingeflossen. Wir werden in einem späte- 
ren Heft einen reinen MNP 5-Test durch- 
führen. 


Natürlich sollten Sie auch auf “Kleinig- 
keiten” wie gute Lautsprecher und einen 
externen Lautstärkeregler achten, damit 
Sie komfortabel mit Ihrem Modem arbei- 
ten können. Es ist ungemein nerven- 


aufreibend, wenn die Lautstärke des Mo- 
dems nicht vernünftig oder gar nicht gere- 
gelt werden kann. 


Mailbox-Betreiber 


Wenn Sie eine eigene Mailbox betreiben 
möchten, müssen Sie zwischen drei 
Modems Ihre Auswahl treffen: dem 
Lightspeed 2400 C, dem Discovery 2400 
C und dem Best 2400+. Nur diese Mo- 
dems beherrschen die Baud-Raten 300, 
1200 und 2400 Baud auch gleichzeitigmit 
automatischer Erkennung im Answer- 
Modus. Als “Normal-Benutzer” dürften 
Sie den Answer-Modus kaum benötigen 
und sollten deshalb hier auch keine Prio- 
rität setzen. 


Lassen Sie sich nicht durch die Post oder 
anderslautende Berichte ins Bockshorn 
jagen: Die Neuordnung der Post kommt 
bald. Dann werden auch solche Modems 
zugelassen sein, die in anderen europäi- 
schen Ländern eine Zulassung erhalten 
haben. Erkundigen Sie sich also nach 
Zulassungen in anderen europäischen 
Ländern, wenn Sie für die Zukunft vor- 
sorgen möchten. 


Ein Unglücksfall! 


Ich darf Ihnen leider keine Anleitung zum 
Anschluß eines Modems geben. Nehmen 
wir jedoch an, eine Gummipalme stürzt 
auf Ihre Telefonanschalteeinrichtung 
(amtsdeutsch), also die häßliche Dose, 
aus der Ihr Telefonkabel kommt. Wäh- 
rend Sie die Dose wieder festschrauben, 
werden Ihnen zwei Kabel auffallen, die 
hier ankommen. Würden Sie jetzt versu- 
chen, diese Kabel an das grüne und rote 
Kabel des Modems anzuschließen 
(welches an welches angeschlossen wür- 
de, wäre egal), würden Sie mit Verwunde- 
rung feststellen, daß das Modem bereits 
angeschlossen wäre... 


MP 


yagıy ui An ı8q snpow-pneg-ooe [oz] 


ois1oy JoygedaBue wapon 
wap pun soyosinap Jeyeisuazi ul 2p°Z wu 





saAe} ypeu ypIu ypopal'y 


‚emz (9) 0092 paadsıyBrı weg Bunynjsny [BL] 


"66€ 


USU 


[s] INH 

ulau 

ın6 

Iuny ıqlaıq 

ınB 

puayoıaısne 

ın6 

[r 1] meaisqlas/Lırd 
saAeH "mia 

el 

uau 

%0 

00r2+0021 ‘00€ 


00r2 ‘0031 ‘00€ 
[21] oovz opeu1oL 








NVH sahnyonypIu 


Jaqg Isay eleyaS-did Jagn uabun) 





waypaya Bu Jaypaudsinen-eidns [Si] 


Ina 299 

ulau 

[Ss] YNH 

ulsu 

ın6 

Iuny 1qaıq 

ın6 

puaydıaısne 

ın6 

[ri] neqsqjas/Lır4 
safeH mio 

el 

uıau 

%0 

00P2+0021 ‘00E 


00re ‘0021 ‘00€ 


[11] wepouuedns Ind. 


103 pun un.6 puss jogey all 
uesoq sypsweyuawe any ageygnyosuy-Li ft [ri] 





nz si Joypaudsıne] Leıßay 00Pz paadsıydr] Inu yoIsıßneg gopz pasdsıybrı [E 


uauIoy y9opel vaypaudsine7 Jemz jey yunuews [91] Wepow ON I ypIaj6neg wapoy opewoı (2) 


WEPOW OpeWo] I yoıajßneg wapopy DAD [it] 


ınb ıyas 


Iyny ıqlalq 


[r 1] neqisqıas/L Lr4 


sakeH mio 


[2] 00v2+002,+00€ 





00r2 ‘0021 ‘00€ 








snpow-pneg-g0E ne sıqD 


"69% / -"66E -srr 
ulou ulou 

[S] YNH [S] YNH 
ulou uISUu 

ın6 ıyas 

Iyma ıgıeıq 

ın6 ıyas Jauloy 
ınb ın6 ıyas 

ın6 ınB 


[vr] measqjes/Lırd 


safeH mia 

el unel 
ulau zulel 
%00L %06 89 
00F3+003,+00€ 

re S1/002, '00r2 
‘003, ‘00€ 


9 00r2 Aıanoasıq i) +00r2 IS0g 


u ajeimuypS ap 2qn yPIS1geI g 00v2 voudeıeg [6] 
Pun varsuazı 151 LL’E LOISSEA-KI | @y8} 


Sue) Bunpuusajeyosu 


na -64r ;souansnduog [oil 





uauaı 


psinap 
ap (8) 





IAgeyuojBjEL an) Bsopgniyasuy = (yasinap 
oe =93vL li ınu Yıv 429g ypopal 'siyayag-saeH © 





[oı] "629 / "62 
[sılel 

[S] ANH 

ulau 

ınb ıyas 

Iyn 3qıaıq 

ın6 ıyas 

ınB ıyas 

ın6 ıyas 

[v1] negisqjas/L ru 
[£] saAeH 'muo 

ulau 

el 

%0, 'eO 

[1] 00r2+0021+00€ 


S2/003} 
00r2'0021'00€ 


9 00r2 peadsıyBıı 





uoy raue |PQEY-ZEZSU Pun WUre,Bo.djeunu.a | auyo Jopo 


A vaupNpaNOSJENUN ul Wepow-tudns [a] 


ageyanypsuy-iir4 = 
etzian = N "yonqpueH = H IS] 


ONIK yoeu 





68€ 


[eılel 

[S] ANH 

uou 

ın6 ıyas 

IymS 1qıaıq 

ınb ıyas 

ınB ayas 

ınB ıyas 

[71] meqisqjas/L rd 
[ge] saAeH mio 
uau 

el 

%0} 'E9 


00r2+0021 


00r2 ‘0021 
[EL] oorz peadsıyßı] 





vu soßnyonınyou 
popal 'aIyejag-sakehH mia [E] 






8 pun p vorssonwejsAssganlsag 

(ag ınB anu Jamsurony :9 002 Asnoasıq [2] 
swapon uajsısejaß 

Jomsueojny sa}saq '9 00pz paadsıyßr] 





(na) ISMWN "Pu! SIld 
«6 LV,, UOIPUN,SHIH 
Bunyelssny 
Bunsseinz 
yayßıssellseanz 
BunysımmusouueM 
191Ba19y1eJsıne] 
Jayaaıdsıne7 
1OZIO9N 

ynıyasuy 
zjessiyejag 

INvu seßnyanınysıu 
Jayey9S-diA 
Bunuusy4ug-Asng 


Jemsueojny loq pneg 


usjeipneg 


1111989 ST” 21 


11.00r8 Any :0POESS/OPO BL ‘ÖingweH 0002 
"£ BonsuopieH "AWO Muopapaaıyıyy Sreynen 


ZU 0092 YUOmWW :088L2P/1r20 
OL wayoey 0015 'E5 Sejleswiayuon 'HAWO EsI3 


-"869 / "865 
[el el 


[ISINH 
el 
pusyoleisne 


um ıqlalq 


Jauley 

ınB 

48194 Jean 
July 

el 

uou 

auıay 
00F2+0021 ‘00€ 


SL/0021 ‘00r2 
‘002, ‘008 ‘0Ll 


8 00rz uoydeyeq 





.00P2 OpeWIOL :LZE0L2S/0OF0 T@L 
‘29 BinqweH 0002 '26 Byeng Jauass3 'amauas LEI 


wepoy 13 002 We] :L200,98/680 'eL 'Sp verpunw 
0008 'z Bgensusyonquieg Hgg YuLpauared SAH 


"6012 


ulou 


[s] 10gey-S4 

‘ Beuue}sod 
“oges}sod 

TB] Li’e xıeL 'NH 
el 

ın6 ıyas 

Iyny ıqlaıq 

ın6 ıyos 

ın6 ıyas 

ınB 

JungeHASsod 

[v] soAeH 'muo 
el 

el 

%00L 
00F2+003,+00€ 


00r2 ‘0021 ‘00€ 
21 0072 YUNoyıN 


au 1122 


ulau 


[s] Geyuejsog 
‘owag XLg suewy 
“ogey-Su ‘219 3VL 
[61] zu’ 2 wwosoIgd 
eges}sod 'NH 

el 

ın6 ıyas 

Iyny ıqıaıq 

HleAue 

Jouloy 

ın6 ıyas 
AyungeHAsod 

[v] saAeH 'muo 

el 


el 


%06 
00r2+0031 


[oz] oore ‘0021 
11 00r2 Aıny 


960687120 jeL 'aypey 0015 '901 Bam Jopunaug 
"HA MULDB] pun vogeuuojuj awajsksiaupau 


002 WEROW IND :220L09/1280 
IeL 'BingsÖnv 0068 "299 Bemjagoy 'Duogoeja cosu 


900r2 paadsıybr] 


66€ 


ulau 


[S] ANH 

ulou 

ın6 ıyas 

Im ıqleıq 

[rl inysy 

ne nz jeın 

ınB 

[vr] meqisqles/Liru 
safe 'mıo 

el 

usu 

%0G "89 
00F2+0021 ‘00E 


00r2 ‘0021 ‘00€ 
00r2 AuTueus 


00ßZ wepoyy Eudng :SOpF2/22090 a1 PEIS 
-IERgOID 1528 ‘61 Bunmapipg “unganamwedu] HSO 
9 00r2 Asnaasıq :B1LLEBUIDEO 

BL 'Z2 UNE 0001 'EE Sgeasuauuoroy dous-NJQ 


862 


uou 


[S] YANH 

ulau 

ın6 ıyas 

WUIEM PıIM 

ın6 

yeyjoßuew 
pusypieusne 

[vH] neasqjes/L ru 
saÄeH mia 

el 


ulou 


%0E 'E9 
00r2+0021 ‘00E 


00r2 ‘0031 ‘00€ 
00rz weaLiewus 


+0002 138 :S8r181/19E20 'IeL "uasneyBunypau 
oger 'L. egensBamzudg "awesksis.ndwoo HNITSIE 
8 002 uoudegeg :p628/E0160 IeL "Öingziopey 

10g8 'Z nSoqemen "DM '00 8 UQWD UIanaM 


[9] -"srr / -"86e 


uou 


[9] 4NH 

uau 

ın6 

gıay pam 
puaypleisne 

[sı] 1zyoem 

ın6b 

[v1] meqisqlas/L ırH 
sakeH ‘mio 

el 


uıou 


%0E "EI 
00r2+0021 ‘00€ 


00r2 ‘0021 ‘008 
00r2 wepoy eıdns 


9.0002 podsuydr] '00vz paadsıudr 'ooz Wuuews 
:IHBESE/DPO IEL. "IE BinqweH 0002 "5 aDessed 
-SemuRNg HALLO SIRpUEYENdWog aauspsndwog 


usssaupeuajpugH 
(na) ISMW 'Plul SIald 
«6. LV,, UOIPUNJSJIH 


Bunyeissny 
Bunsseinz 
yayßısselleanz 
BunjysımmusawieM 
1s1ba1ayueısıne] 
aayaaıdsıne] 
1SZION 

ynıyasuy 
zyessiyejog 

INvu seßnyanınyaıu 
Jeyey9S-diQ 
Bunuusyug-Asng 


‚Jemsueo}ny leq pneg 


usjeilpneg 


22 ST” 11/1989 


MAIL- 


BOXEN 


Wer in die DFÜ-Szene einsteigt, wird 
sicherlich schnell bemerken, daß er/sie 
sich ein kostenintensives Hobby ausge- 
sucht hat (viele Grüße an die POST). 
Um die Kosten etwas zu mindern, kann 
man sich eine eigene Mailbox anlegen. 
So muß man nicht mehr andere Syste- 
me anrufen, sondern stellt nur eine Box 
zu Hause bereit und läßt sich stattdes- 
sen anrufen. Da zum einen schwer an 
solche Programme zu gelangen und 
zum anderen kaum bekannt ist, welche 
es überhaupt gibt und was sie können, 
bieten wir Ihnen eine kleine Übersicht 
der momentan “vier großen” Pro- 
gramme. 


Was ist eine Mailbox? 


Sicher können nicht alle mit dem Begriff 
“Mailbox” etwas anfangen. Eine Mailbox 
ist ein elektronischer Briefkasten. Sofern 
Sie ein Modem oder einen Akustikkopp- 
ler besitzen, können Sie mit einer Mail- 
box kommunizieren, sich dort Informa- 
tionen besorgen, Nachrichten hinterlas- 
sen, persönliche Briefe schreiben oder 
beispielsweise auch an einem Netzver- 
bund teilnehmen. In einem Netzverbund 
sind mehrere Mailboxen zusammenge- 
schlossen und tauschen in bestimmten 
regelmäßigen Abständen neue Nachrich- 
ten aus. Je nach Größe des Verbunds 
können Sie dann täglich mehr oder weni- 
ger viele neue Nachrichten abrufen. 


SOFTWARE 
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Netzebenen 3 


Picobox 


Netzverbund jali] ja [2] 
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Skylink Starmail 
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Emulationen 52, 100 [8] 


über 80 








Befehlsumfang 
Lieferumfang gut 


Preis 349,-/29,- [9] 





[2] 5 Systeme im Piconet, Netzverbund mit MagicNET 
{3] 11 Systeme im Starnet 
[4] Y-Modem und Kermit folgen in der nächsten Version 


[6] Z-Modem in einer der nächsten Versionen 
[7] Als Point kann ein MagicNET-Point benutzt werden 


[9] Vollversion 349,- DM; Pointversion 29,- DM 


Tabelle: Alle Programme in der Übersicht 


Was muß 
beachtet werden? 


In einem Mailbox-Programm sollte die 
Möglichkeit gegeben sein, komfortabel 
Nachrichten in verschiedene Unterabtei- 
lungen (sogenannte “Bretter”) zu schrei- 





Netztransfer täglich täglich keiner täglich 
Netzkosten gut gut = ausreichend 
Netzstruktur ringförmig ringförmig - sternförmig 
Steuerung Befehle Menüs+Befehle Menüs Menüs+Befehle 
Protokolle x, z[4 X, Kermit [5] X x, Y [6] 
Point-Systeme ja nein [7] nein nein 





Fullscreen 52 
über 80 
ausreichend gut gut 
400,- DM 


[1] 56 Systeme im MagicNET, Netzverbund mit Piconet und EIS, Gateway zu Zerberus 


[5] Y-Modem und Z-Modem folgen in der nächsten Version 


[8] zusätzliche Emulation für C64-VipTerm-VT52-Anwender 















Fullscreen 52 
ca. 30 


Fullscreen 52 
26 

















198,- DM 398,- DM 


ben bzw. daraus zu lesen. Dazu sollten 
verschiedene genormte Übertragungs- 
protokolle zur Verfügung stehen. Mög- 
lich sind beispielsweise X-Modem, X- 
Modem Ik, X-Modem CRC, Y-Modem, 
Y-Modem Batch, Y-Modem G, Z-Mo- 
dem, Bimodem, Q-Modem, Kermit und 
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viele andere. Je mehr Protokolle zur 
Auswahl stehen, desto besser können die 
Möglichkeiten der Mailbox genutzt wer- 
den. Wichtig ist auch, daß beliebige Da- 
teien in einem bestimmten Bereich der 
Mailbox abgelegt werden können. Das 
kann entweder in normalen Brettern, in 
extra dafür angelegten Up- und Down- 
load-Bereichen sowie über die “Private 
Mail” geschehen. Natürlich sollte all das 
komfortabel durch möglichst viele Be- 
fehle und/oder Parametereinstellungen 
steuerbar sein. Sofern Sie Wert auf ein 
Mailbox-Netz legen, achten Sie darauf, 
daß Ihnen die Größe des Netzes sowie 


SOFTWARE 


dessen Ausbaufähigkeit ausreicht. Es 
bringt wenig, ineinem Mailbox-Netz teil- 
zunehmen, das schlechte Überlebens- 
chancen hat. 


Wenn Sie eigene Programme in die Mail- 
box mit einbinden möchten, sollten Sie 
auf die Erweiterbarkeit des Programms 
achten. Einige Mailbox-Programme sind 
dermaßen geschlossen, daß nicht einmal 
das kleinste eigene Programm eingebaut 
werden kann. Ein wichtiges Kriterium ist 
auch die Geschwindigkeit des Pro- 
gramms. Dabei sollten Sie nicht die Dis- 
kettengeschwindigkeit messen, da es 


wenig sinnvoll ist, eine Mailbox auf 
Diskettenstation(en) zu betreiben (sorry: 
einige AMIGA-Boxen verstehen es 
nie...). Auch die Zeit, die Sie täglich mit 
dem Programm bei der Wartung und der 
Pflege verbringen möchten, ist ein wich- 
tiges Kriterium. Hier sollten Sie einen 
Kompromiß zwischen Benutzerfreund- 
lichkeit für die Anrufer und Ihrem Ar- 
beitsaufwand schließen, da Sie kaum 
beides in einem Programm vereinigen 
können. Nicht zuletzt zählt natürlich Ihre 
Finanzlage als Kaufentscheidung... 


MP 





Starmail (Starnet) 


Auch dieses Programm besitzt einen 
Anschluß an ein Netzwerk. Im Starnet 
sind momentan knapp 10 Mailboxen 
vernetzt. Das Programm ist grundsätz- 
lich verschieden von MagicBOX ST 
konzipiert. 


Starmail wartet mit den üblichen Menü- 
leisten auf, in denen wir diverse Funktio- 
nen finden. Interessant: Im Programm ist 
ein Bildschirmschoner eingebaut; eine 
recht sinnvolle Funktion für ein Mailbox- 
programm. Der Schoner läßt sich natür- 
lich bei Bedarf auch wieder ausschalten. 
An den Menüleisten (Bild 1) kann man 
bereits deutlich erkennen, daß Starmail 
weniger für die Benutzer, als vielmehr für 
den Systembetreiber konzipiert wurde. 
Hier kann man in bester GEM-Manier 
alles nach Herzenslust verändern, was zu 
verändern ist. So können Nachrichten, die 
an den Systembetreiber adressiert sind, 
gelesen, neue Nachrichten betrachtet oder 





Anrufprotokolle von verschiedenen Ta- 
gen bearbeitet werden. Hier läßt sich bei- 
spielsweise auch feststellen, welcher 
User wann wo welches Programm in die 
Mailbox geschickt hat. Weiterhin läßt 
sich überprüfen, ob ein Gast sich als 
Benutzer in der Mailbox eintragen möch- 
te. Hier zeigt sich ein Manko: Es ist nicht 
einstellbar, daß sich neue User frei eintra- 
gen können; sie müssen grundsätzlich den 
Umweg über den Brief an den Betreiber 
gehen. An diesem Problem wird aber 
schon gearbeitet. Was passiert aber 
momentan in diesem Falle weiter: Man 
schaut sich den Antrag an und schreibt ihn 
ab oder läßt ihn ausdrucken, um ihn dann 
per Hand wieder einzugeben. Bei einer 
der nächsten Programmversionen wird 
der Eintrag direkt nach dem Lesen zu 
übernehmen sein. Wie lassen sich nun die 
User gliedern? Starmail unterscheidet 
zwischen Usern, “Kategorie I”- und 
“Kategorie II”-Usern. Normale User sind 





Systen 













RING 





Speaker On/üff 
Speaker Volune 





Bild 1: Die Starmail-Menüs 
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v Bildschirm schonen 
Init Passwort anzeigen 







Systen-Info Userdatei 
Mails an Sysop 
Mails an Cosys 
Neue Mails 
Protokolle 
Info 
Anträge 









Filebank 
Update löschen 
Starnet 














Bretter bearbeiten 


beispielsweise Gäste und solche Benut- 
zer, die nicht allzu häufig anrufen. In der 
Kategorie I landet man, wenn man zwar 
hin und wieder mal anruft, aber nicht 
gerade der aktivste ist. Kategorie II wird 
also meistens dann vergeben, wenn ein 
User recht aktiv teilnimmt. Natürlich 
kann der Betreiber all diese Einteilungen 
frei vornehmen. Mit Kategorie II stehen 
dem User dann auch noch einige Befehle 
zusätzlich zur Verfügung. 


Im System 


Sehen wir uns das Login an (Bild 2). Hier 
wird erst recht deutlich, daß Starmail für 
Sysops konzipiert ist, denn dem Benutzer 
stehen deutlich weniger Befehle als bei- 
spielsweise bei MagicBOX ST zur Verfü- 
gung. Noch deutlicher wird es anhand des 
Menüeintrags, mit dem man sich einlog- 
gen kann: Ernenntssich “Test”, nichtetwa 
“Login”. Nachdem man sich mit seiner 
recht unpersönlichen User-Nummer ein- 
geloggt hat, erscheint das Prompt, das zur 
Eingabe eines Befehls auffordern soll 
(“*>”). Man kann sich auch unter seinem 
Namen einloggen. Wenn das System den 









Optionen 
Tages-Auslast. 
Ges.-Auslast, 
Statistik 
Renane 
Delete 
Ran 

Test 

Boxtool 

Restart 


Desktop 


Programne 
ARCSH198 , PRG 
KILLER .PRG 

ZOOSHELL.PRG 
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Hand das entsprechende Brett aufrufen. 
Beim Lesen und Schreiben von Mails ist 
eine Funktion eingebaut, die in bestimm- 
ten Fällen sehr nützlich sein kann: Ein 
sogenanntes “Punktekonto”. Für jede 
Nachricht, die ein Benutzer liest, be- 
kommt er einen Punkt abgezogen. 








Atari Kontakte 


Hacker-post-BTX Database 


BEFEHLE 
ZUSERANTRAG _ GEBUEHREN EDITOR TINE 
VISITENKARTE INSTALL HELP INFO 
- POSTFACH UPDATE STATUS MAKRO 

BENUTZER SYSOp SORT 








Bild 2: Starmail online 


Namen gefunden hat, wird die User- 
Nummer bekanntgegeben, und man muß 
sich erneut mit seiner User-Nummer ein- 
loggen. Wie in anderen Programmen 
auch, hat der Sysop die Möglichkeit, 
Bretter nach seinen Wünschen einzurich- 
ten. Den Zugang kann man nach einigen 
Kriterien bestimmen: entweder einen 
Zugang für alle User (auch Gäste), einen 
Zugang für eingetragene User (Kategorie 
I und II), oder nur für Kategorie II-User. 


Bretter 


Möchte man ein Brett nur einigen Usern 
freigeben, so ist auch das möglich: Durch 
Zugriffsschlüssel kann jedes Brett für 
jeden User gesperrt werden - das aller- 
dings nur bei bis zu 16 Brettern. Möchte 
man 17 Benutzergruppen eintragen, ist 
das nicht möglich. Im normalen Boxbe- 
trieb sollte allerdings eine Unterschei- 
dung nach 16 Benutzergruppen ausrei- 
chend sein. Ein Brett kann auch hier als 
ein Up-/Download-Brett eingetragen 
werden, in das nur Programme oder ähn- 
liche Dateien eingespielt werden können. 
Dabei kann man per X- oder Y-Modem 
übertragen, bei Starmail wird noch an 
einer Z-Modem-Routine gearbeitet. 
Währendein User in der Mailbox ist, kann 
der Sysop natürlich auch diverse Funk- 
tionstasten drücken, woraufhin dann ein 
vorher definierter Text erscheint. Der 
gesamte Anruf des Users läuft in einem 
Window ab, das ungefähr 2 Drittel des 
Bildschirms einnimmt. Dadurch wird es 
leider unmöglich, eine vernünftige VT52- 
Steuerung aufzubauen: Inverse Buchsta- 
ben erscheinen hier unterstrichen, leider 
ist auch nicht der ganze Bildschirm zu 
überblicken. Auch das soll jedoch in einer 
der nächsten Versionen verbessert wer- 
den, so daß man zwischen dem Fenster- 
und einem ganzen Bildschirm hin- und 
herschalten kann: Das ist wohl die beste 
Lösung. Nun zur Bedienung: Möchte 
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man in ein Brett gelangen, so ist einfach 
der Name des Bretts einzugeben. Hier 
treten unter Umständen beim Anlegen 
»n Unterbrettern noch einige Probleme 
Hat man beispielsweise ein Brett 
1 .ırdware” im Oberbegriff “Atari”, geht 
man folgendermaßen vor: Zuerst gibt 
man “Ata” ein und befindet sich sodann 
im Atari-Bereich. Hier wird, vollkommen 
korrekt, die weitere Auswahlmöglichkeit 
angezeigt, z.B. “Hardware” und “Softwa- 
re”. Nun möchte man das Brett “Hardwa- 
re” anwählen. Die Eingabe von “Ha” 
unterscheidet sich eindeutig von “Soft- 
ware”, also gibtman “Ha” ein - und landet 
im Brett “Hacker”. Hier sollte eventuell 
etwas geändert werden. Leider kann auch 
beispielsweise kein Brett namens “In- 
stall” eingerichtet werden, da das System 
“Install” als Befehl erkennt. So sollten 
dann auch keine Bretter wie beispielswei- 
se “Inserate” eingebaut werden, da bei 
Eingabe von “Ins” das System ebenfalls 
den Befehl “Install” erkennt. Grundsätz- 
lich sollte also kein Brett eingerichtet 
werden, das in den ersten 3 Buchstaben 
einem Befehl entspricht. Wählt man ein 
Brett an, so wird auch sofort in die Lese- 
routine gesprungen. Das kann recht ent- 
nervend sein, wenn man nur schreiben 
möchte. Starmail hat auch einen Scanner 
eingebaut, der alle neuen Nachrichten seit 
dem letzten Login anzeigt. Diese überaus 
wichtige Funktion ist mit dem Befehl 
“INSTALL UPDATE ALL” aufrufbar 
(bei MagicBOX ST mit “+"), wenn man 
alle neuen Bretter angezeigt bekommen 
möchte. Mit dem Update ist es auch 
möglich, sich den Inhalt der Bretter anzei- 
gen zu lassen. 


Punktekonto 


Der Kategorie I-User wird hier allerdings 
stark beschnitten, denn er kann nur den 
Inhalt aufrufen lassen. Möchte er die 
Nachrichten dann lesen, muß er noch per 





Schreibt er eine Mail, so bekommt er 
wieder Punkte auf sein Konto addiert. Ist 
sein Punktekonto erloschen, kann er ent- 
weder nichts mehr lesen oder bekommt 
vor jeder gelesenen Nachricht eine Mel- 
dung ausgegeben, daß das Punktekonto 
nun erloschen ist, je nachdem, wie der 
Sysop es eingestellt hat. Da man auf diese 
Art und Weise natürlich seine User eher 
vergrault als einlädt, kann man diese 
Funktion auch abstellen. Eine wirklich 
nette Funktion ist die Möglichkeit, mit 
dem User zu sprechen, ohne den Sysop- 
Ruf zu betätigen. Dazu muß einfach vor 
der Eingabe einer Nachricht ein Semiko- 
lon eingegeben werden, um die (dann 
lästige) Meldung “Keinen Befehl er- 
kannt” zu unterdrücken. 


Fazit 


Starmail ist ein schr gutes Mailboxpro- 
gramm, das überaus absturzsicher und 
unschlagbar komfortabel ist - allerdings 
nur für den Betreiber des Systems. Ihm 
wird aller nur erdenkliche Komfort gebo- 
ten, den keines der anderen Programme 
erreichen kann. Leider wurde aber bei den 
Funktionen für die User gespart. Wün- 
schenswert wäre auch ein Point-Pro- 
gramm für das Starnet. Starmail mit Star- 
net kostet DM 398,- plus Porto und Ver- 
packung. 


MPI/HE 
Bezugsadresse: 


TEDD-Datentechnik 

Dieter Deppe & Thomas Eyring 
Gladiolenweg 19 

4792 Bad Lippspringe 

Tel. (05252) 4525 

Mailbox: (05252) 3413 


STARMAIL MAILBOX 


+ sehr gute Sysopoberfläche 

+ Y-Modem-Protokoll eingebaut 
+ Netzverbund 

+ arbeitet mit Postmodems 


+ Brettschutzmöglichkeiten 
+ gute Geschwindigkeit von Diskette 


- Z-Modem-Protokoll fehlt (noch) 
- wenig Befehle für den Benutzer 
- Netzverbund sternförmig: u.U teuer 


SOFTWARE 


Skylink 


Das universelle System 


Beim Mailbox-Programm Skylink ist 
man einen gänzlich anderen Weg ge- 
gangen - die Befehlsstruktur läßt sich 
vom Sysop komplett selbst bestimmen. 


Nach dem Start von Skylink präsentiert 
sich dem Benutzer eine eher schlichte 
Oberfläche: Ein weißes Desktop. Doch 
die Einschaltmeldung kann nicht über die 
vielfältigen Möglichkeiten des Pro- 
gramms hinwegtäuschen. Eine Übersicht 
der Funktionen, die mit der Menüleiste 
ausgeführt werden können, sehen Sie in 
Bild 1. Gehen wir gleich zu den wichtigen 
Funktionen des Programms über, den 
Befehlen für den Benutzer. 


Befehle 


Skylink kann nicht ohne Probleme mit 
den anderen Mailbox-Programmen ver- 
glichen werden. Das rührt daher, daß alle 
Befehle, die man als User eingeben darf, 
selbst gestaltet werden können. Und 
selbst hier sind dem Sysop sehr gute 
Möglichkeiten gegeben, denn es können 
4 unterschiedliche Befehlsstrukturen in 
das Programm eingebaut werden. So 
kann man beispielsweise eine Menü-, 
eine Bildschirmtext-ähnliche, eine Be- 
fehlsstruktur (ohne Parameter) und ähnli- 
che Befehlslisten einbauen, zwischen 
denen der aktive User auswählen kann. 
Daß alle Befehlsstrukturen sich ähneln 
und im Grunde das gleiche mit unter- 
schiedlichen Befehlen bewirken, fällt 
dabei nicht auf. Grundsätzlich stehen 26 
Befehle zur Verfügung, denen man 4 oder 
mehr verschiedene Befehlsnamen zuwei- 
sen kann. Man sollte allerdings bedenken, 
daß 26 Befehle nicht gerade viel sind. Alle 
wichtigen Funktionen werden jedoch 
zufriedenstellend dadurch abgedeckt. Mit 
den 26 Befehlen läßt sich auf 4 Ebenen 
jeweils eine menü- bzw. befehlsgesteuer- 





te Mailbox erstellen. Leider läßt sich auf 
diese Art und Weise keine Befehlssteue- 
rung mit Argumenten bewerkstelligen 
(etwa “INHALT *” oder “BRETT 
ALL*”), obwohl sich Benutzeroberflä- 
chen wie Geonet in weiten Teilen des 
Bundesgebiets bereits als Standard 
durchgesetzt haben. 


Bretter 


Auch Skylink arbeitet, wie die beiden 
anderen Programme, mit Brettern bzw. 
Pinboards. Bei Skylink ist auch die Mög- 
lichkeit gegeben, sich mit einem Druck 
auf die Insert-Taste einzuloggen - bei den 
anderen Programmen muß entweder ein 
Button oder ein Menüeintrag angewählt 
werden. Vorteilhaft: beim Sysop-Login 
von der Konsole kann man die Baudrate 
einstellen, mit der man gerne die Box 
betrachten möchte. Wie bei den anderen 
Programmen auch, können hier “norma- 
le” Bretter zum Lesen und Schreiben 
eingerichtet werden, aber auch Up-/ 
Download- sowie paßwortgeschützte 
Bretter. Dabei ist man nicht, wie bei Star- 
mail, auf 16 Paßwörter beschränkt, son- 
dern kann für jedes Brett ein eigenes 
Paßwort wählen. Da sich ein Paßwort 
unter Usern schnell herumspricht, hat 
man hier ähnliche Möglichkeiten wie bei 
MagicBOX ST, denn jedes Brett kann mit 
einer Zugangsberechtigung für jeden ein- 
zelnen User belegt werden, so daß das 
Wissen um das Paßwort allein nichts 
nützt, wenn man nicht in der Zugangsda- 
tei eingetragen ist. Leider können Bretter 
aber grundsätzlich nicht vom Programm 
aus installiert, sondern müssen grundsätz- 
lich mit einem externen Texteditor bear- 
beitet werden (s.u.). Dadurch ist es nicht 
möglich, die gesamte Mailbox per Fern- 
wartung instandzuhalten. 
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Protokolfiles 
Diskfunktion [E] 


Mitschrift aus 
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Sen Editor Box 


















Bild 1: Die Skylink-Menüs 


Titeltext Userliste Editor Desktop 

Systenneus Userliste drucken Archiver || Sysop Login 

Frage bei Logoff || Userliste aufräumen | Terminal || Manuel 
Userlevel ändern HD info 







User eintragen 
User löschen 





Userdaten ändern 


6-Level/Flags ändern 


Tastenbelegung 


In Skylink hat der Sysop, wie auch beiden 
anderen Programmen, die Möglichkeit, 
mit Funktionstasten in das Geschehen 
während einer Verbindung einzugreifen. 
Dabei ist es allerdings das einzige Pro- 
gramm, bei dem man beispielsweise alle 
Eingaben, die über das Modem kommen, 
sperren, oder alle Befehle, die eingegeben 
werden, sofort über den Drucker ausge- 
ben lassen kann. Sehr gut ist auch die 
Möglichkeit, sich den Zustand der Funk- 
tionstasten anzeigen zu lassen, indem 
man die HELP-Taste drückt. 


Während bei den anderen Mailbox-Pro- 
grammen komfortable Brett- und Usere- 
ditoren eingebaut sind, muß man hier 
etwas improvisieren: Bretter können nur 
über die Bretterdatei mit einem Textedi- 
tor geändert oder gelöscht werden. Weder 
im Box- noch im externen Programm 
existiert ein solches Programm. Möchte 
man im Wartestatus einen User eintragen 
oder edieren, muß man sich mit den Funk- 
tionen des Online-Usereditors zufrieden- 
geben. Auch hier wurde kein komforta- 
blerer Editor eingebaut. 


Zusätzliche Funktionen 


Interessante Möglichkeiten hat auch der 
Sysop: Durch eine Art von “Weiterleit”- 
Funktion können Nachrichten in eine 
temporäre Datei kopiert werden, von wo 
aus man sie weiterverarbeiten kann. 
Dabei wird derkopierte Text wieder unter 
dem Namen des Originalautors abgespei- 
chert. Skylink bietet unter anderem aber 
auch sehr gute Statistikfunktionen für den 
Sysop: Alle Postleitzahlen, die beim 
User-Antrag durch neue Benutzer ange- 
geben werden, werden mit dem entspre- 
chenden Ort in einer Datei gespeichert. 
Außerdem hat das Programm, und das 
sollte eigentlich schon Standard sein, 
einen eingebauten Telefongebührenzäh- 
ler, der anhand der Vorwahl des Benut- 
zers die Tarifzone berechnet. Dabei wer- 
den vom Programm sogar Feiertage be- 
achtet. Man muß sie zwar vorher in eine 
Datei schreiben, hat somit aber immer die 
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Es ist keine Post für Dich da 


?-AN-HEU C#) -IN-MB-RC-PRG-UV-OLG-PAR-ME-BE-MSG-DFU-UG-BYE 


00:00:13 >>? 


Hilfstext in Hauptienü 


= Dieser Hilfstext 


= Hilfe und Infos zur Box RC 
MailBoxmenü (schwarzes Brett) BE 


PRoGrannbox 
UserVerwaltung 
OnLine Ganes 


HEue nails seit letzten logoff 


AN = Anleitung der Box 

= RechnerCorner 

= Befehlsliste der R-M-S 
UG = UserGruppen 

PAR = Parameter einstellen 
ME = Menue wählen 

DFU = Rund um die DFÜ 


PM's und SysOp MSG/CHAT 


LOG, END, 88, RAUS 


Box verlassen 


?-AN-HEU (#) -IN-MB-RC-PRG-UV-OLG-PAR-ME-BE-MSG-DFU-UG-BYE 


08:00:17 >> 
Bild 2: Skylink online 


richtige Gebührenberechnung. Damit 
kann sich der User ein genaues Bild über 
seine nächste Telefonrechnung machen. 
Auch die Computertypen, die bei Neuein- 
trägen angegeben werden, werden in ei- 
ner extra dafür eingerichteten Datei abge- 
speichert. So ist man immer über die 
Verteilung der verschiedenen Computer- 
typen auf dem Markt informiert. 


Mehr Programme 


Nicht nur das Mailboxprogramm wird 
geliefert, sondern auch eine komfortable 
Shell zur Behandlung von Disketten- und 
Festplattenoperationen. Diese Shell läßt 
sich aber leider nicht aufrufen, wenn man 
von außen anruft, da sie mit Menüleisten 
gesteuert wird. In der Shell lassen sich 
Dateien löschen, umbenennen, kopieren, 
Directories anlegen oder löschen, aber 
auch Programme in Up- und Download- 
Bretter kopieren. Um dies zu bewerkstel- 
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ligen, muß man sich also nicht immer in 
die Mailbox einloggen, es reicht auch, 
wenn man die externe Shell aufruft. Auch 
ein Texteditor, “Edimax”, wird mitgelie- 
fert. Natürlich kann man aber auch seinen 
eigenen Texteditor wie Tempus einbin- 
den. ARC, ZOO, LHARC und AR wer- 
den natürlich auch mitgeliefert, um einen 
einwandfreien Mailbox-Betrieb zu garan- 
tieren und seine Programme effektiv 
packen zu können. 


Fazit 


Mit Skylink erhält man ein menügesteu- 
ertes Mailbox-Programm, das man ganz 
nach seinen eigenen Wünschen gestalten 
kann. Es stehen zwar nicht viele Befehle 
zur Verfügung, sie sollten aber im norma- 
len Mailbox-Betrieb zu einer recht kom- 
fortablen Steuerung ausreichen. Ein 
DFÜ-Neuling wird sicherlich Probleme 
haben, das Mailbox-Programm nach sei- 


nen Wünschen zu installieren, da die 
Befehlszuweisung für die einzelnen 
Menüs rechtkompliziert ist. Doch es ist so 
wie bei anderen Programmen: Wenn man 
den Bogen einmal raus hat, klappt es gut. 
Leider ist das Programm auch noch nicht 
netzwerkfähig, dies soll in einer späteren 
Version jedoch folgen. Dafür ist es das 
Programm mit dem niedrigsten Preis, es 
kostet DM 198,-. Wer eine menügesteuer- 
te Mailbox betreiben möchte, ist sicher- 
lich mit Skylink recht gut bedient. 


MPIHE 


Bezugsadresse: 


Thomas Rapp EDV-Beratung 
Cutiusweg 21 

2000 Hamburg 26 

Tel. 0401218917 

Mailbox: 0401217906 


SKYLINK MAILBOX 


+ sehr variable Menügestaltung 

+ Help-Bildschirm für Sysop 
eingebaut 

+ Eingaben lassen sich ausdrucken 

+ temporäre Textdatei zum Kopieren 

+ gute Statistikfunktionen 


+ niedriger Preis 
+ 4 verschiedene Menüs zur Auswahl 


kein Bretteditor 

(noch) nicht netzwerkfähig 
Menüaufbau für den Sysop 
kompliziert 

unkomfortabel von Sysopseite 








Picobox 


Aus der Schweiz kommt ein Mailbox- 
Programm namens Picobox, das am 
besten mit Skylink zu vergleichen ist: 
veränderbarer Menüaufbau, jedoch 
mit vielen komfortablen Befehlen. 


Auch Picobox präsentiert sich nach dem 
Start eher schlicht. Lediglich eine Mel- 
dung auf die Möglichkeit zum Login oder 
zum “Shutdown” (Programmende) ist 
angegeben (Bild 1). Verwundert über nur 
2 Möglichkeiten drückt man die Escape- 
Taste, um einen Login zu machen, und 
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wird eines besseren belehrt: Hier kom- 
men alle Möglichkeiten der Mailbox voll 
zur Geltung. Das System läßt sich in aus- 
nahmslos allen Bereichen voll fernwar- 
ten. Deshalbsind auch keine aufwendigen 
Menüs zur Konsolenwartung nötig. Pico- 
box arbeitet mit Hayes-kompatiblen 
Modems mit 300, 1200 oder 2400 Baud. 
In der Schweiz besteht bereits ein im 
Aufbau befindliches Netzwerk, genannt 
“Piconet”. Das Piconet ist ab Mitte Okto- 
ber auch mit dem MagicNET vernetzt, so 
daß dadurch eine noch größere Auswahl 


an Nachrichten für den Benutzer erreicht 
wird. Picobox ist, wie alle anderen gete- 
steten Mailbox-Programme, in GFA- 
BASIC geschrieben. Wie bei MagicBOX 
ST wird auch hier die Version 3.07 mit 
dem Compiler 3.02 benutzt. Dadurch 
wird das Programm recht schnell. 


Befehle 


Ähnlich wie bei Skylink lassen sich auch 
hier die Befehle schwer beschreiben, da 
man allen Kommandos einen eigenen 
Namen geben kann. Doch damit nicht 
genug: Es können auch eigene Menüs 
entworfen werden. Damit ist man nicht 
mehr auf die Voreinstellung angewiesen, 
sondern kann sich sein eigenes System 
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Waiting for Call, 3849688 
von call with ESC, abandon Box with Q 


Bild 1: 
Die Picobox-Mail- 
box im Wartemodus 


von oben bis unten so einrichten, wie man 
es gerne möchte. Dabei können mehr als 
70 Befehle verwertet werden, die auch 
recht komfortabel sind. Doch nicht nur 
die Befehle sind sehr vielfältig, sondern 
auch die User der Box können nach 10 un- 
terschiedlichen Kategorien in bis zu9 Ab- 
stufungen eingeteilt werden. Level 0 ist 
für Gäste, Level 1-9 für “Newcomer”, 
Level 10 bis 19 sollte für normale User 
reserviert sein. Ab User-Level 20 lassen 
sich dann immer mehr Privilegien einstel- 
len, die ein “normaler” User nicht hat, 
beispielsweise der Zugriff auf die PD- 
Bretter oder der Löschzugriff in Brettern. 
Die User-Level haben bei Picobox jedoch 
so gut wie nichts zu bestimmen, da man 
jeden Befehl ab einem bestimmten Level 
freigeben kann. Doch damit immer noch 
nicht genug: 


Terminalemulationen 


Bei den Terminal-Emulationen sind Pico- 
box keine Grenzen gesetzt! Alle können 
ebenfalls über eine Konfigurationsdatei 
eingestellt werden. Dadurch kann jede 
noch so exotische Terminalemulation 
perfekt emuliert werden. Auf diese Art 
und Weise kann man sich hervorragend 
seinen Usern anpassen, da nicht überall 
die gleichen Emulatoren benutzt werden. 
Diese Art der Steuerzeichenbeschreibung 
scheint mir zukunftsweisend. Die Instal- 
lation der entsprechenden Steuerzeichen 
ist so einfach gemacht, daß man sie inner- 
halb von 2 Minuten bewerkstelligen 
kann. 


Alle Aktionen des anrufenden Benutzers 
werden in 3 unterschiedlichen Protokol- 
len gespeichert. Dabei besitzen sie jeweils 
eine unterschiedliche Ausführlichkeit. Im 
ersten Protokoll wird nur gespeichert, wer 
um welche Uhrzeit angerufen hat. Im 
zweiten Protokoll werden Zugriffe auf 
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Bretter mit Datum und Uhrzeit gespei- 
chert, im dritten, dem ausführlichsten 
Protokoll, wird alles mitgespeichert. Die- 
se Vorgehensweise läßt sich leider nicht 
abstellen. Lassen Sie mich rechnen: 3 
Anrufer erzeugen ungefähr 100 kB Proto- 
kolldatei. 20 Anrufer pro Tag erzeugen 
650KB Datei. Ineiner Woche (die Woche, 
in der der Sysop Urlaub macht) entspricht 
das knapp 7 Megabyte Protokolldatei... 
Hier sollte ein Schalter eingeführt wer- 
den, um diese Funktion auszuschalten. 
Man kann natürlich auch über eine Zeit- 
schaltuhr eine Batchfile-Prozedur im 
Auto-Ordner aufrufen, die den Protokoll- 
text täglich automatisch löscht. 


Watchdog 


Picobox ist bisher das einzige Programm, 
das einen Carrier-Watchdog mitliefert. 
Wird der Watchdog nicht mindestens alle 
15 Minuten zurückgesetzt, oder findet er 
nach 15 Minuten keinen Carrier mehr an 
der Schnittstelle, führt er einen Reset aus 
und startet dadurch das Programm neu. 
Dadurch ist es unmöglich, daß das Pro- 
gramm für längere Zeit (s.o.: Urlaub) 
abstürzt, es sei denn, die VBL-Queue 
gerät derart durcheinander, daß der ST 


Deno-Version 


In diesen File wird der Text abgelegt, der 
nach jeden Login abgelegt werden soll, 


COMMAND: Help, Boards,Mail,Userlist,Quit >b 
BOARDS: Boardlist,Change,Files,Read >r 


Geben Sie ein: x,+,7,x7,”X,Xt,+X,x7y,x*y,7=Hilfe : + 


Hr, Status Von Titel 
1 TEXT SYsop soso 


Dies ist einfach so eine Nachricht. Nicht wahr. 


Gruesse, 
caronni 


ccRrd/r/a) ? U 





nicht mehr oben und unten erkennt. In 
Zusammenarbeit mit einer Zeitschaltuhr, 
die das System täglich einmal aus- und 
wieder einschaltet, ist eine absolut ein- 
wandfreie Funktion des Programms ga- 
rantiert. 


Wie in (fast) allen anderen Mailbox-Pro- 
grammen auch, können bei Picobox 
Nachrichten in Bretter (hier heißen sie 
“Boards”) oder in das persönliche Fach 
geschrieben werden. Dabei können die 
Bretter wieder unterteilt werden nach 
dem Zugriffslevel (von O bis 99). Durch 
die weiträumige Level-Verteilung ist es 
zwar nicht notwendig, ein Brett durch ein 
Paßwort zu schützen, die Möglichkeit ist 
aber trotzdem eingebaut. 


Natürlich existiert auch die Möglichkeit, 
Programme in extra dafür angelegte Bret- 
ter zu veschicken. Leider stehen dem 
Programm dazu aber nur die Protokolle 
X-Modem und Kermit zur Verfügung. Da 
Kermit heutzutage kaum noch genutzt 
wird, ist der Einbau einer Z-Modem- 
Routine bereits in Planung. Hier haben 
sich einfach die Autoren von Picobox und 
MagicBOX ST zusammengeschlossen 
und tauschen ihre Routinen aus. 


Auch die Möglichkeiten beim Lesen sind 
sehr umfangreich für ein menügesteuer- 
tes System (Bild 2): Es können bestimmte 
Dateien gelesen werden, alle Nachrichten 
ab und bis zu einer bestimmten Position 
oder alle Nachrichten von einer bestimm- 
ten Position bis zu einer anderen. Dabei 
kann jeweils noch unterschieden werden, 
ob die anzuzeigenden Nachrichten in 
absteigender oder aufsteigender Reihen- 
folge gezeigt werden sollen. Wenn eine 
Nachricht gelesen wird, wird automatisch 
alle 24 Zeilen ein “Weiter Taste” ausge- 
geben, um die Textausgabe zu stoppen. 
Diese Ausgabe kann durch Control-D 


Datun Rec, 
18,87,85 4 


Bild 2: 
Auch online gibt's 
einiges zu sehen 


unterbunden werden. Besser wäre eine 
Lösung, die andere Programme bieten, 
indem zum einen die Bildschirmlänge 
eingestellt, zum anderen die “Weiter 
Taste”-Ausgabe komplett unterbunden 
werden kann. Somuß man nicht bei jedem 
Login wieder Control-D drücken. 


Auch mit Picobox kann man an einem 
Netzverbund teilnehmen, dem Piconet. 
An diesem im Aufbau und seit zwei 
Monaten im Test befindlichen Netz sind 
zur Zeit 5 schweizerische Mailboxen 
angeschlossen, unter anderem auch die 
Firma DTZ, die in der Schweiz für etliche 
Programme und Hardware-Produkte den 
Vertrieb übernommen hat. Außerdem ist 
ab Mitte Oktober ein Gateway zum Ma- 
gicNET in tätig, das alle Nachrichten 
zwischen den beiden Netzen austauscht. 
Die Verbindung zur Firma DTZ dürfte für 
viele Mailbox-Betreiber sicherlich ein 
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guter Grund sein, sich dieses Programm 
anzuschaffen. Sollte sich dieses Mailbox- 
Netz auch in anderen Ländern als der 
Schweiz verbreiten, wäre das wirklich 
eine schöne Sache. Außerdem besteht in 
Deutschland die einfache Möglichkeit, 
durch das MagicNET eine Verbindung zu 
DTZ und dem Piconet zu schaffen. 


Alsdann 


Es erübrigt sich zu sagen, daß Picobox das 
beste menügesteuerte Programm ist. Das 
im Aufbau befindliche Netz läuft seit 
zwei Monaten fehlerfrei und dürfte somit 
die Serienreife erlangt haben. Die Mög- 
lichkeiten der eigenen Menü- und Be- 
fehlsgestaltung sind derart ausgereift, daß 
sich so manches Programm diverse 
Scheiben abschneiden könnte. Wenn Sie 
also ein menügesteuertes System einem 
befehlsorientierten vorziehen, sind Sie 


mit Picobox sehr gut beraten. Das Pro- 
gramm kostet SFr 400,- bzw. DM 400,-. 


MPIHE 


Bezugsadresse: 

DTZ DataTrade AG 
Langstrasse 94 

Postfach 413 

CH-802] Zürich 

Tel. (0041) (0) 112428088 


PICOBOX MAILBOX 


+ Netzwerk 

+ Gateway zum MagicNET 

+ alle Befehle selbst bestimmbar 
+ X-Modem und Kermit 


+ großer Befehlsumfang 
+ komplett fernwartbar 


- (noch) kein Y- und Z-Modem 
- keine offline-Sysopfunktionen 








MagicBOX ST 
(mit MagicNET) 


Die Überschrift zeigt bereits, daß man 
sich mit MagicBOX ST an eines der 
größten deutschen Mailboxnetze, das 
MagicNET, anschließen kann. Da das 
Programm recht viele Features hat, 
werde ich versuchen, Ihnen die wich- 
tigsten in Kurzform darzustellen, da 
sonst der Rahmen dieses Artikels ge- 
sprengt würde. 


Nach dem Start des Programms zeigt sich 
MagicBOX ST in einer ungewohnten 
Benutzeroberfläche. Die üblichen Menü- 
leisten, fliegenden Rechtecke und hin- 
und herschwirrenden Dialogboxen sucht 
man hier vergeblich, bei der Oberfläche 
wurde ein komplett neuer Weg gegangen 
(Bild 1): Alle Optionen sind über Buttons 
am unteren Rand des Bildschirms erreich- 
bar. Hinter einigen Buttons verbergen 
sich noch weitere, die anwählbar sind. So 
kann man leicht die Übersicht behalten. 
Der obere Teil des Bildschirms beinhaltet 
Informationen über das System wie die 
Tagesstatistik, Angaben über die Anzahl 
der Benutzer, Online-Zeiten, MagicNET- 
Zeiten u.ä. Erfreulich: Alle änderbaren 
Angaben lassen sich auch verändern, 


indem man mit der Maus einfach dort 
hinklickt, wo sie im oberen Bereich des 
Bildschirms stehen. Hier kann man nun 
beispielsweise einstellen, ob das System 
Public (Gäste dürfen sich frei eintragen), 
Non-Public (vor dem Eintrag muß der 
Systembetreiber konsultiert werden) oder 
offline sein soll, wieviele Laufwerke 
angeschlossen sind, Sysop- und System- 
name können verändert werden etc. Doch 
der wichtigste Teil einer Mailbox über- 
haupt ist der Teil für die Benutzer, denn 
ohne sie kann kein System existieren. 
MagicBOX ST arbeitet mit allen Hayes- 
kompatiblen Modems mit 300, 1200, 
2400 und/oder 9600 Baud. Bei 9600 Baud 
wird eine effektive Baudrate von etwa 
9000 Baud erreicht. Nun aber zur wichtig- 
sten Sache, der Benutzeroberfläche für 
den Anrufer. Man drücke also mit dem 
Mausknopf auf “Login”, und schon ist 
man in der Mailbox. 


Von innen 


Nach dem Login präsentiert sich dem 
Sysop eine Mailbox mit weit mehr als 80 
Befehlen, die nach dem IMCA/Geonet- 


Standard gehalten sind. Für den Gast, der 
das erste Mal anruft, dürften sicherlich 80 
Befehle eine Überforderung sonderglei- 
chen darstellen. Aus diesem Grunde kann 
für jeden Benutzer einzeln jeder Befehl 
zugeteilt und natürlich auch wieder ge- 
sperrt werden. So kann man dem Gast nur 
die wichtigsten Befehle geben, dem neu- 
eingetragenen Benutzer ein Drittel usw., 
bis er sich gut mit dem System auskennt. 
Auf diese Artund Weise istsichergestellt, 
daß die reichhaltige Auswahl an Befehlen 
auch wirklich angewendet werden kann 
und keine Überforderung des Benutzers 
darstellt. 


Auch an Terminal-Emulationen hat 
MagicBOX ST einiges zu bieten. VT52, 
ANSI/DEC VT100 und “VIP52” sind 
eingebaut. Zunächst zur VIP52-Emula- 
tion: Das ist eine abgemagerte VT52- 
Emulation für VipTerm-Benutzer auf 
dem C64. So können endlich auch diese 
DFÜ-Fans “ihre” Emulation voll ausnut- 
zen. Die VT52-Emulation entspricht kei- 
nesfalls der eingebauten ATARI VT52- 
Version, sondern ist stark erweitertundan 
DEC VT100 angepaßt. Beim Login von 
der Console wird nicht nur auf inverse 
Zeichen erweitert, sondern es sind auch 
Fettschrift, Schrägschrift, unterstrichene, 
helle Schrift und natürlich weiterhin in- 
verse Zeichen möglich. Beim Login von 
außen (also über die Telefonleitung) wird 
aus Geschwindigkeitsgründen auf die 
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BOxsTa 
CONSOLE. 


Bild 1: 
MagicBOX ST 
im Wartemodus 


“normale” VT52-Steuerung umgeschal- 
tet. Die eingebaute DEC VT100-Emula- 
tion wird für den Sysop umgewandelt in 
VT52-Steuersequenzen, damit er nicht 
mit Steuersequenzen überflutet wird. In- 
teressante Effekte ergeben sich bei der 
Inhaltsübersicht, bei der die Zeilen 7 bis 
23 zum Scroll-Bereich bestimmt werden, 
während alle anderen Zeilen auf dem 
Bildschirm stehenbleiben. Dies natürlich 
nur, wenn eine der drei Emulationen ein- 
gestellt ist. Da die erweiterte VT52-Steu- 
erung natürlich Zeit in Anspruch nimmt 
(effektiv werden es etwa 4000 Baud), 
kann auch ein “Fast-Login” durchgeführt 
werden, das im günstigsten Fall ca. 60000 
Baud (mit Blitter und Turbo ST) zustande 
bringt, dann allerdings nur mit “einfa- 
cher” VT52-Steuerung. Nun auf alle 
Befehle einzugehen, würde bis übermor- 
gen dauern. Lassen Sie mich nur noch 
festhalten, daß die gesamte Mailbox auch 
per Fernwartung in Schuß zu halten ist: 
Ein Konsolen-Login ist dazu nicht not- 
wendig. 


Unterteilung 


Das Mailboxsystem läßt sich grob in drei 
Bereiche einteilen: in den Lokalbereich, 
den Netbereich und die Gatemail. Lokale 
Bretter sind, wie der Name schon sagt, nur 
in dereigenen Box, also lokal, vorhanden, 
und werden nicht an andere Boxen des 
MagicNETs weitergeleitet. Alle Bretter, 
die im Netbereich sind, sind auch in allen 
anderen MagicNET-Mailboxen. Außer- 
dem ist ab Mitte Oktober ein Gateway 
zum Piconet lauffähig. Dadurch ist ge- 
währleistet, daß ungefähr 7000 Benutzer 
aus verschiedenen Ländern auf diese 
Bretter zugreifen können. In der Gatemail 
sind Bretter enthalten, die aus anderen 
Systemen stammen, etwa dem Fido- oder 
ZerebrusNet, und natürlich auch dem 
Piconet im normalen Netzteil. Hier wird 
also, und das ist einmalig bei den deut- 
schen Mailboxnetzen, ein Übergang zu 
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anderen Netzen geschaffen, damit man 
noch mehr Menschen erreichen kann. Es 
existiert noch eine weitere Art von Bret- 
tern: die Up-/Download-Bretter. In die- 
sen können lediglich Programme abge- 
legt werden. Natürlich kann man auch 
gemischte Bretteranlegen, in denen Texte 
UND Programme untergebracht sind, 
diese Methode ist allerdings eleganter. 
Der Zugriff auf einzelne Bretter kann auf 
vielfältige Weise geschehen. So kann 
man zunächst festlegen, ab welchem 
Level ein Brett beschrieben, ab welchem 
es gelesen werden und ab welchem man 
sich den Inhalt anzeigen lassen kann. 
Damit nicht genug: Für jedes Brett kann 
ein eigenes Paßwort vergeben werden. 
Damit die Hacker gar keine Chance mehr 
haben, kann man jedem Benutzer einzeln 
den Zugriff für ein Brett geben oder nicht. 


Lieferumfang 


Nicht nur das Mailbox-Programm selbst 
wird geliefert, sondern auch einige andere 
nützliche externe Programme. Da sind 
zum einen die drei externen Editoren für 
User, Bretter und MagicNET-Systeme. 
Diese Programme sind in der gleichen 
Benutzeroberfläche gehalten wie das 
Mailbox-Programm selbst. Auch hier 
können alle Einstellungen durch einfa- 
ches Anklicken der entsprechenden Zeile 


verändert werden. Wichtige globale 
Funktionen sind wiederum in der unteren 
Button-Leiste zu finden. Ein Bild des 
Usereditors finden Sie in Bild 2. 


Nützliche Utilities sollten bei keinem 
Mailbox-Programm fehlen. So werden 
auch einige Packprogramme mitgeliefert: 
ARC, ZOO und auch LHARC. Für Über- 
tragungen wird auch eine externe ZMo- 
dem-Routine mitgeliefert, die alle Netz- 
transfers zu anderen MagicNET-Mailbo- 
xen schnell und sicher abwickelt. Des- 
weiteren liegt ein kleines Terminal-Pro- 
gramm bei, ebenfalls mit der Benutzer- 
oberfläche des Mailbox-Programms und 
der drei Editoren. 


Übertragungsprotokolle 


MagicBOX ST unterstützt die Übertra- 
gungsprotokolle XModem und ZModem. 
An einer Einbindung von YModem wird 
bereits gearbeitet. Die Übertragungspro- 
tokolle können für reine Textübertragun- 
gen, aber auch zur Übertragung von Pro- 
grammen in Up-/Download-Bretter ge- 
nutzt werden. Nachdem ein Text in den 
eingebauten Editor geladen ist, kann man 
auch seine Befehlsvielfalt begutachten. 
Nützliche Funktionen wie das Errechnen 
der Verbindungsgebühr beim Trennen 
der Verbindung müssen wohl nicht mehr 
erwähnt werden, das sollte schon Stan- 
dard sein. 


Wenn Sie sich mit einem großen Mail- 
boxnetz vernetzen wollen, sind Sie mit 
MagicBOX ST gut bedient. Ein großer 
Vorteil ist, daß über kurz oder lang auch 
mindestens fünf Mailbox in der Schweiz 
folgen werden, die über das Piconet Zu- 
gang zum MagicNET bekommen. Da- 
durch ist nicht zuletzt eine Verbindung 
zur Firma DTZ geschaffen worden. Einen 
Nachteil sollte man allerdings nicht unter- 
schlagen: Die Befehlsvielfalt des Pro- 
gramms ist für DFÜ-Anfänger unüber- 
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ADIMENS ST 
plus 


Das “PLUS” 
macht den Unterschied 


Gerne schmücken die Software-Häu- 
ser ihre neuen Produkte mit einem 
kleinen unscheinbaren Zeichen, dem 
“+”, Andere schreiben das Wort sogar 
aus: “plus” (z.B. 1st_Wordplus, ST- 
PASCAL plus, 1st-Proportional plus 
usw.). Bei den alteingesessenen Softwa- 
re-Produkten zum ATARI ST jagt 
meist eine Version die andere und 
anhand der Nummer orientieren sich 
die potentiellen Kunden kaum noch. 
Dann müssen aussagekräftigere Be- 
zeichnungen her, die dem Kunden sa- 
gen, hier ist jetzt soviel Neues drin (in 
dem Programm), daß sich ein Kauf 
unbedingt lohnt. Halten diese “PLUS”, 
“SUPERPLUS” und “HYPERSU- 
PERPLUS” wirklich, was sie verspre- 
chen? Die Firma ADI-Software aus 
Karlsruhe hat schon auf der Düssel- 
dorfer ATARI-Messe ’89 einen Ein- 
blick in die neuen Funktionen ihres 
Produktes “ADIMENS ST plus” (Ver- 
sion: 3.0) gegeben. Was bringt das 
“Plus” den Anwendern jetzt? 


ADIMENS ST plus besteht aus jenen drei 
Einzelprogrammen, die es auch in der 
Version 2.3 schon gab: 


-“INIT" als Vereinbarungsteil 
- *EXEC” als Datenbankausführungsteil 
- *REORG" zur internen Neuorganisation 


Grundsteinlegung 


Mit dem Vereinbarungsprogramm 
“INIT” wird die Struktur der späteren 
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Datenbank festgelegt. Es war für mich 
persönlich immer sehrangenehm, mitden 
GEM-Icons zu hantieren und dabei zu 
erfahren, wie leicht es ist, den Aufbau 
einer Datenbank in kürzester Zeit abzu- 
wickeln: Einfach ein Symbol aus dem 
Teilefenster entnehmen und auf das freie 
Definitionsfenster bewegen. In der ge- 
genständlichen Welt wäre dies einem 
Karteikasten vergleichbar. Dann ein 
Doppelklick, und schon öffnet sich das, 
was später die Datenmaske wird (ver- 
gleichbar mit einer Karteikarte). Jetzt 
werden die Felder entsprechend ihres 
Typs (numerisch, alphabetisch oder Da- 
tum usw.) aus dem Teilefenster gegriffen, 
und alsbald ist eine Datenbank entstan- 
den. 





Drei wesentliche Neuerungen im Pro- 
grammteil INIT gilt es zu erwähnen: 


a) Verbunde anlegen. Verbunde sind 
Masken, die genauso definiert werden 
wie die “normalen” Karteikarten. Das 
neue Symbol mit der Doppelschublade 
zeigt diese Funktion an. In Verbundmas- 
ken lassen sich Daten aus verschiedenen 
Dateien (Karteikästen) zusammenfassen 
und zeitgleich bearbeiten (sogen. JOIN- 
Funktion). Des weiteren können dabei 
bestimmte Ausschnitte aus verschiede- 
nen Dateien in einer einzigen Maske zu- 
sammengelegt werden (sogen. VIEW- 
Funktion). Verbunde behandelt der späte- 
re EXEC-Programmteil wie normale 
Masken (sie schen auch genauso aus) mit 
den üblichen Operationen wie Eingeben, 
Ändern, Löschen, Anzeigen usw. 


b) Eindeutige Schlüssel. Oft kann es nötig 
sein, nureindeutige Schlüssel als Feldein- 
träge zuzulassen. Das bedeutet, daß in 
keinem weiteren Datensatz ein gleichlau- 
tender Eintrag in dasselbe Feld (d.h. mit 
demselben Feldnamen) möglich sein soll. 
Sinnvoll wird das beispielsweise bei der 
Vergabe von Kundennummern. Sobald 
eine Kundennummer zweimal vergeben 
ist, kann nichtmehr von einer eindeutigen 
Zuordnung ausgegangen werden. Deswe- 
gen muß ausgeschlossen sein, daß diesel- 
be Kundennummer nocheinmal vergeben 
werden kann. Die Zuordnung “eindeuti- 
ger Schlüssel” löst im EXEC-Teil eine 
automatische Überprüfung aus und weist 
nötigenfalls auf Doppeltvergabe hin. 
Weniger sinnvoll wird aber ein eindeuti- 
ger Schlüssel in folgendem Fall: Feld 
“Kundenname” und dortiger Feldinhalt 
“Müller”. Hier muß es später erlaubt sein, 
weitere Kunden mit dem Namen Müller 
einzutragen - also kein “eindeutiges 
Schlüsselfeld”! 













Dh äffnen,.. | Definieren |V Anzeigen als Liste Nächste Datei 
Db schließen | Laden... Anzeigen als Maske Nächster Schlüssel 
pres Sichern... [= | Neuer Schlüssel... 
Datei-Info Protokoll, / Aufsteigend sortiert | mm 
Di-Iıfü 2 fiesmeeuenen Sequentiell sortiert Merkmale auswählen. 
| Hilfe Entfernen Absteigend sortiert Reihenfolge ändern, 
Frerspeeeesee Vernenden _ sr nee Feldbreite ändern. , 
Drucken Fließtexte Einstellung laden.. 
Ausgehen;auf' Dich | 1mSmzmmmmenemrenennmeneene Einstellung sichern 
Mischen... Gefundene Datensätze anz. | Sortierfolge def... 
Exportieren... Auf Klenmbrett übernehnen |"------------------.— 




















Drucker einstellen, 








Schalttafel anzeigen Seitenfornat... 

Arbeitsumgebung laden.. Schriftgröße... Bild 1: 
| _Arbeitsungebung sichern Definieren, Sm Die kom- 
... exteditor 
— Sichern... Init pletten Pull- 

Protokoll... Reorg Down-Menüs 
Eingeben.. Aditalk des EXEC- 
Kader ; \ 4 shell Programms 
Bearbeiten Laden. .« 5 (Datenbank- 
Anzeigen. . Entfernen Konfiguration. .. ausführung) 





c) Kommentare in Masken. Das war nun 
aber wirklich an der Zeit! Masken sollten 
möglichst wohlgeordnet, aussagekräftig 
und knapp bemessen sein. Langatmige 
Feldnamen möge der Datenbankdesigner 
bitte vermeiden. Was aber tun, wenn 
später ein(e) Nichtinformatiker/in im 
EXEC-Teil Dateneingaben machen soll 
undsichnnichtauskennt? Daistes doch ein 
Schritt hin zu mehr Bedienerfreundlich- 
keit, wenn an unklaren Positionen Hin- 
weise, Kommentare oder Notizen stehen. 
Beispiel: Eine Auftragsnummer wird 
gerne benutzt, um die Interessenten und 
Käufe quasi durchzunumerieren. Da wäre 
es doch praktisch gleich dazuzuschrei- 
ben: “Auftragsnummer ist auch Rech- 
nungsnummer!” Bediener oder Sekretä- 
rin wissen dann gleich Bescheid, längere 
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sichern 


schiedene Arbeitsoberflächen in beliebig 
vielen Dateien “*.INF” abgelegt werden. 
Jede “*.INF” kann ihre eigene “*.BAT” 
laden. Auch ein Wechsel der Anordnung 
der Oberfläche während des normalen 
Betriebes ist möglich. 
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Bild 3: 

Im INIT-Programm 
sind die neuen Sym- 
bole “Doppelschub- 
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die Wege des Daten- 
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austausches für 
Verbunde. 


Rückfragen sind überflüssig. Mit Kom- 
mentarfeldern können nun Texte jeweils 
bis zu 21 Zeichen zusätzlich in die Maske 
eingebaut werden. 


An die Arbeit 


Wenn man sich die Arbeitsoberfläche des 
EXEC-Teils anschaut, werden einem 
gleich drei Änderungen bzw. Ergänzun- 
gen auffallen: 1. In der Pull-Down-Menü- 
leiste hat es “Befehlszuwachs” gegeben 
(übrigens in den Pull-Downs selber noch 
viel mehr!), 2. eine “Schalttafel” ist hin- 
zugekommen, und 3. ein Symbol “Sor- 
tierbrett” erscheint neu. Und das ist noch 
lange nicht alles. Viele Neuerungen wird 
man auf den ersten Blick nicht unmittel- 
bar sehen können - aber der Reihe nach: 


a) Arbeitsumgebung, soviel wie man will. 
Das normale ATARI-GEM speichert die 
Desktop-Ausgangslage der Symbole 
(Icons) und Fenster (Inhaltsverzeichnis- 
se) üblicherweise in der Datei “DESK- 
TOP.INF”. Gleiches gab es auch für 
ADIMENS, aber auch nur einmal: die 
Datei “EXEC.INF”. Jetzt können ver- 





b) RSC-Dateien. Bislang wurden die 
Resourcedateien einmal ganz zu Anfang 
der Datenbankkonstruktion generiert. 
Jetzt erzeugt das neue ADIMENS ST plus 
alle benötigten Masken erst beim Öffnen 
der Datenbank. Das spart vor allem Spei- 
cherplatz auf dem externen Datenträger. 
Da dieses Verfahren völlig anders arbei- 
tet, können RSC-Dateien aus den älteren 
Versionen nicht mehr benutzt werden. 


c) Neue Menüstruktur. Die Menüleiste 
oben hat wesentliche Veränderungen er- 
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Bild 2: 
Die Pull-Down-Menüs 
des INIT-Programms 








(Datenbankeinrichtung) 


fahren. Dies betrifft hauptsächlich die 
Menüpunkte “Datei”, “Edit”, “Option” 
und “Verbund”. Die Zusammenstellung 
der Befehle wurde so umgestellt, daß sie 
übersichtlicher und komfortabler bedien- 
bar sind. Befehle, welche auch im logi- 
schen Ablauf zusammengehören, stehen 
beieinander. 


d) Mehrfachsortierung. Endlich! Jetzt 
besteht die Freiheit, die Daten einer Datei 
nach mehreren Schlüsselmerkmalen aus- 
zufiltern. In dem Menü “Optionen” wird 
eine Sortierfolge hierzu vereinbart. Wenn 
nun die betreffende Datei auf das Symbol 
“Sortierbrett” geführt wird, löst sie die 
Sortierfolge aus. 


e) Schalttafel. Man muß nun nicht mehr 
rätseln, ob “Rechnen verwenden” oder 
“Wahl verwenden” aktiviert wurde. Auch 
ein ständiges Anwählen der entsprechen- 
den Menüs ist nicht mehr nötig. Eine 
kleine Tafel zeigt an, welche Schalter zur 
angewählten Datei aktiv sind. Gerade 
hierdurch ist die Übersichtlichkeit we- 
sentlich verbessert worden. 


f) Funktionstasten. Natürlich gibt es 
immer Gegner der Maus. Man war es halt 
von älteren Rechnern gewohnt, ständig 
mit ALT- oder ESC-Sequenzen zu arbei- 
ten. Bei ADIMENS ST plus werden pa- 
rallel zuden GEM-Menüs die wichtigsten 
Funktionen dennoch per Funktionstasten 
erreichbar bleiben. Jetzt sind auch bei 





AUFTRAG.Auftrags_Nr (2) 


Bild 4: 
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pischen Schalter und 
das Sortier(klemm)- 
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[Einzelpreist4)] = 
| [Einzelpreist5)] = 
[Einzelpreis(6)] = 


[Preis(2)] 


Bild 5: 

Auch bei den Rechen- 
funktionen hat sich 
einiges getan: Viele 


[| Rechnen-Definition der Datei RECHNUNG: 


LEinzelpreis(1)l; 
inzelpreis(2)]; 
[Einzelpreis(3)]; 
[Eingangsdatum] = [DATE]; 
[Preis({)] = [Anzahl(1)] * [Einzelpreis(4)]; 
[Anzahl (2)] * LEinzelpreis(5)]; 
[Ppreis(3)] = [Anzahl (3)] * [Einzelpreis(6)]; 
[Auftragswert] = [Preis(1)] * [Preist2)] + [Preis(2]1; 
[Rabattbetrag] = [Auftragswert] * [Rabattsatz 7] / 108; 
[Nettobetrag] = [Auftragswert] - [Rabattbetrag]; 
IMuSt_Betrag] = [Nettobetrag) * 14 / 108; 
|| IGesantbetragl = [Nettobetrag) + IMmSt_Betragl; 





Bitte Taste oder Mausknopf drücken 














neue Rechenopera- 
tionen kamen hinzu. 


geöffneten Dialogboxen die Funktionsta- 
sten ansteuerbar. 


g) Bearbeiten von Datensätzen. Hinzuge- 
kommen ist der Menüpunkt “Bearbei- 
ten”, der es erlaubt, in der Maskenausga- 
be nach Datensätzen zu suchen. Anschlie- 
Bend kann für den angezeigten Datensatz 
sofort der nächste Arbeitsschritt direkt 
angewählt werden. Wenn die Listenaus- 
gabe voreingestellt ist, wird durch “Bear- 
beiten” noch schneller nach Datensätzen 
gesucht. Daß hierbei natürlich Jokerzei- 
chen (Wildcards) wie “*” und ‘“?” zuge- 
lassen sind, sei nur am Rande erwähnt. 


h) Wahl definieren. Das mit den Mehr- 
fachfeldern war schon immer schwierig 
zu verstehen. Die Einträge sind zwar 
unabhängig voneinander, dennoch aber in 
nur einem Feld. Diese Mehrfacheinträge 
mußten ganz verzwickt angesprochen 
werden. Jetzt braucht man nur noch einen 
Doppelklick, und ein Einzel(teil)feld ist 
spezifiziert. 


i) Rechnen definieren. Gleiches zu den 
Mehrfachfeldern, wie eben bei Wahl defi- 
nieren, gilt auch beim Rechnen. Zusätz- 
lich können noch SYSDATE, SYSTIME 
und COUNT eingebunden werden. Gera- 
de das Rechnen in EXEC hat viele Ände- 
rungen und Verbesserungen erfahren. So 
sind jetzt auch bedingte und logische 
Rechenanweisungen erlaubt wie: "IF- 
THEN-ELSE-ENDIF, größer als, kleiner 
als, gleich, AND, OR, NOT. 


Beispiel: 


IF >Bedingung< 
THEN >Rechenprogramm< 





Sogar Warnmeldungen (ALERT) kann 
man einbauen und sogar in eine IF-An- 
weisung. 


Beispiel: 


IF >Bedingung< 
THEN ALERT >Zeichenkette< 
>Rechenprogramm< 


Die Grenzen der EXEC-Rechenmaschine 
sind wesentlich erweitert worden: 


- maximale Anzahl von Befehlen für eine 
Rechnung = 800 (bisher 200), 

- der Stapel für numerische Konstanten 
und Variablen nimmt deren maximal 
400 auf (bisher 100), 

- der Stapel für Zeichenketten faßt nun- 
mehr 4000 Zeichen (anstelle von 1000). 


Die neue 
Variable SYSMODE 


In SYSMODE wird eine Zahl als Infor- 
mation über jene Arbeitsumgebung fest- 
gehalten, von der aus das Rechnen gestar- 
tet wurde. Damit kann das Starten des 
Rechenvorgangs von der gerade aktiven 
Arbeitsumgebung abhängig gemacht 
werden. 


Beispiel: 


IF [SYSMODE] = 12 
THEN [PLZ] = ‘D-" + [PLZ]; 
ENDIF; 


Das heißt, nur wenn die Rechenfunktion 
aus der Arbeitsumgebung “globales 
Ändern” gestartet wurde, soll der Postleit- 
zahl eine Zeichenkette “D-” vorangestellt 
werden. Die Zahl 12 fürSYSMODE steht 
für “globales Ändern”. 


Der REORG-Teil bekam eine neue Ober- 
fläche. Jetztkönnen über Dialogboxen die 
Datenbasis gewählt, die Kennwortangabe 
und verschiedene Einstellparameter ein- 
gegeben werden. UND: REORG ist er- 
heblich schneller geworden! 


Darf’s etwas mehr sein? 


Das bisher schon als solide und ausgereift 
geltende Datenbanksystem ADIMENS 
ST hat durch die beschriebenen Verände- 
rungen und Verbesserungen sicher an 
Interesse zugenommen. Bei einem Preis 
von DM 399,- bekommt der Anwender 
ein sehr brauchbares Datenbankpro- 
gramm. ADI-Software Karlsruhe zeigt 
durch diese Neuauflage, daß kleine Unzu- 
länglichkeiten der früheren Versionen 
schnell aufgearbeitet und in sinnvolle 
Funktionen umgesetzt wurden. Als her- 
vorhebenswert erscheinen mir die Ver- 
bundfunktion und das Mehrfachsortieren, 
sehr klug war auch das Einrichten der 
Schalttafel. Einen Schwachpunkt gibt es 
aber noch immer: Es sind einfach noch zu 
viele (auch oft benötigte) Funktionen in 
den Menüs versteckt, was mit der Maus 
länger dauert als mit Tastendrücken. 
UND: Wenn schon so oft die Maus bean- 
sprucht wird, warum ist die rechte Maus- 
taste nicht für alternative Zwecke in Be- 
trieb? Das aber sind nur kleine Wermut- 
stropfen, die das Gesamtbild nicht trüben. 
UND: Welches Programm ist schon per- 
fekt? 


Dieter Kühner 
Bezugsquelle: 
ADI Software GmbH 
Hardeckstraße 5 


7500 Karlsruhe 
Telefon: 0721/570000 
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GD-FIBU 


Finanzbuchhaltung leicht gemacht? 


Nach dem $238 des HGB ist jeder 
Kaufmann dazu verpflichtet, Bücher 
zu führen. Dabei muß die Buchhaltung 
so beschaffen sein, daß sich ein sach- 
verständiger Dritter in angemessener 
Zeit einen Überblick über die Lage des 
Unternehmens verschaffen kann. Als 
Freiberufler, Klein- und Kleinstunter- 
nehmer muß man sich zumeist selber 
um die Buchhaltung und die Abrech- 
nung gegenüber dem Finanzamt küm- 
mern. Sicherlich kommt man um einen 
Steuerberater in der Regel nicht her- 
um, aber mit ein paar Grundkenntnis- 
sen und dem richtigen Programm kann 
man sich schnell einen Überblick über 
die eigene wirtschaftliche Lage ver- 
schaffen. Besonders für diese Zielgrup- 
pe - kleine und mittlere Unternehmen - 
ist die Finanzbuchhaltung von gdat 
gedacht. Wird sie ihrem Anspruch auf 
leichte Bedien- und Erlernbarkeit ge- 
recht, oder kommen auf den Anwender 
nur noch mehr durchwachte Nächte 
zwischen Hoffen und Bangen zu? 


Die GD-FIBU ist bereits seit längerer Zeit 
im Einsatz. Die neue Version - die auf der 
ATARI-Messe vorgestellt wurde - ist 
völlig überarbeitet worden. Am Grund- 
konzept - möglichst viel Information 
übersichtlich am Bildschirm darzustellen 
- hat sich nichts geändert (Bild 1). Neu ist 
jetzt, daß man sich eine individuelle Fi- 
nanzbuchhaltung aus mehreren Modulen 
zusammenstellen kann. Die Grundver- 
sion beginnt mit dereinfachen Einnahme- 
Überschußrechnung. Mit den Modulen 


- Bilanz 


- Fremdwährung 
erleichtert die Abrechnung und ver- 
schaft den nötigen Überblick bei 
Fremdwährungen 


- Offene Posten 


- Kostenstellen 
nützlich, wenn der Betrieb in mehrere 
Abteilungen untergliedert ist 


- Kontenplan-Verwaltung 


besonders interessant für Spezial-Kon- 
tenpläne im Mandantenbetrieb 


- Abschluß-Formatierung 
kann man die Grundversion nach den 
eigenen Erfordernissen zu jedem belie- 
bigen Zeitpunkt erweitern. Die Routi- 
nen für die Bildschirmausgabe sind alle 
in Assembler geschrieben, ein flüssiges 
Arbeiten ist dadurch gewährleistet. 


Viele der neuen Features erkennt man gar 
nicht auf den ersten Blick, sie sind beim 
ATARI-ST einfach noch kein Standard. 
So zum Beispiel die Dateiauswahl mit as- 
soziativer Namenssuche. Aber von diesen 
kleinen Details später mehr. 


Was braucht man an 
Harter Ware? 


Ein ATARI ST mit einem Megabyte 
Hauptspeicher reicht für den Anfang aus. 
Da die Daten von einem Abrechnungs- 
zeitraum alle im Speicher stehen, muß 
auch das TOS im ROM untergebracht 
sein. Als Massenspeicher genügt ein 
doppelseitiges Diskettenlaufwerk. Wie 
jede professionelle Software, so verwen- 
det auch die GD-Fibu einen Monochrom- 
monitor. Auf einem Großbildschirm läuft 
die Finanzbuchhaltung zwar, aber die 
volle Auflösung wird noch nicht unter- 
stützt. Gdat arbeitet daran, daß durch ein 
Mehr an darstellbarer Information nicht 
die Übersichtlichkeit leidet. Ein Blitter 
wird empfohlen, aber es geht auch ohne so 
flott, daß man auf ihn verzichten könnte. 


Dies ist wohl als Minimalkonfiguration 
zu verstehen. Für mich besteht eine kom- 
fortable Arbeitsumgebung aus einem 
MEGA-ST 2 oder MEGA-ST 4 und einer 
Festplatte, deren Größe sich nach dem 
Umfang der Buchhaltung und den sonsti- 
gen Anwendungen richtet. Auf eine dop- 
pelseitige Diskette passen ungefähr 
10.000 Buchungen. Das ist bereits mehr, 
als viele Kleinunternehmen im ganzen 
Geschäftsjahr buchen. Sollte das nicht 
reichen, dann ist die GD-FIBU in der 
Lage, eine bis zu 12 MByte große Datei 
auf mehrere Disketten zu verteilen. Erst 
wenn die Datei noch umfangreicher wird, 
ist eine Festplatte nötig. Allein für die 
Finanzbuchhaltung und eventuell eine 
Textverarbeitung reichtdeshalb eine klei- 
ne 20-30 MByte-Festplatte in den meisten 
Fällen aus. 


Pro freiem MByte Hauptspeicher kann 
man 12.000 Buchungen in jedem Abrech- 
nungszeitraum (monatlich, quartalswei- 
se, jährlich oder wie Sie wollen) einge- 
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ben. Bei 4 MByte RAM sind das über 
40.000 pro Monat. Ich kenne keinen selb- 
ständigen Unternehmer, der mehr bräuch- 
te. 


Leider akzeptiert das Finanzamt noch 
keine Disketten mit der Abrechnung, und 
so ist auch ein Drucker nötig. Hier kann 
der Anwender aus einer breiten Palette 
wählen - zur Zeit stehen wohl an die 60 
Druckertreiber zur Verfügung. Wer noch 
etwas mehr Geld los werden möchte, der 
besorgt sich extra Kontopapier, um dem 
Finanzamt eine Freude zu bereiten. Blan- 
ko tut’s natürlich auch, es wird dann ein- 
fach das Formular mitgedruckt, was dann 
aber natürlich etwas länger dauert. 


Starten und Installieren 


Zum Starten der Finanzbuchhaltung wird 
ein ROM-Modul benötigt, welches man 
beiausgeschaltetem Rechner einsteckt. In 


Bürobedarf 





Bild 1: Viel Information übersichtlich dargestellt bei der GD-FIBU 
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wird dadurch der 
Einstieg etwas teu- 
rer,aberaufderan- 
deren Seite hat der 
Anwender den 
großen Vorteil, 


aam.a; daß ihm die 
1848.48 > M 

1802.38 Grundfunktionen 
al aller gdat-Pro- 


2234.49 
2223.96 
2273,36 





gramme vertraut 
sind und die Be- 
dienung neuer Pro- 
gramme erleich- 
tert wird. 





Das Programm hat 
natürlich keinen Kopierschutz und kann 
ohne Problem auf der Festplatte installiert 
werden. Die einzelnen Pfadnamen und 
Einstellungen (Scroll-Geschwindigkeit, 
Dunkelschaltung,...) werden natürlich - 
auf Wunsch - dauerhaft übernommen. 


GD-SYS - so heißt dieses ROM-Modul - 
istunter anderem auch für die Abfrage des 
Paßwortes zuständig. Als erste Aktion 
muß dieses vom Benutzer eingegeben 
werden. Danach kann die Anwendung ge- 
startet werden. Hier ist auch ein erster An- 
satzpunkt für Verbesserungen. Es kann 
nurein Paßwort vergeben werden, danach 
ist der Zugang zu allen Anwenderpro- 
grammen frei. Sinnvoll wäre es, wenn 
man erstens für jedes Anwenderpro- 
gramm ein eigenes Paßwort definieren 
könnte, und zweitens, wenn es in der 
Anwendung selber mehrere abgegrenzte 
Bereiche gäbe. Dies ist zeckmäßig, wenn 
mehrere Personen mit dem Rechner ar- 
beiten, aber nicht 
alle in der Bilanz 




















Gesellschaft für dezenirale Dalen- Technik 
FE u 


Bild 2: In GD-SYS wählen wir die Finanzbuchhaltung aus 


diesem ROM-Modul sind die Grundrou- 
tinen, auf die alle Programme von gdat 
zugreifen. Zum Beispiel die Fileselector- 
box, die kleine Analoguhr in der rechten 
obereren Ecke oder der kaufmänische Ta- 
schenrechner. Das ROM-Modul muß 
extra gekauft werden. Auf der einen Seite 
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der Firma stöbern 
sollen. 


In GD-SYS wäh- 
len wir also als An- 
wenderprogramm 
die Finanzbuch- 
haltung (Bild 2) 
und nach einem 
mehr oder weniger 
langen Ladevor- 
gang - abhängig 
davon, ob Sie mit 
einer Floppy oder 
einer Festplatte 
arbeiten - erscheint die Fileselectorbox, in 
der Sie Ihre gewünschte Datei anwählen 
können. 


Abbruch 


Ist noch keine eigene Datei vorhanden, 
gibt man einfach einen beliebigen Namen 
ein, das Programm erkennt das und fragt 





nach, ob es eine solche Datei einrichten 
soll. In einer weiteren Auswahlbox (Bild 
3) wird der Beginn des Geschäftsjahres 
festgelegt, der Kontenrahmen (SKR 03, 
SKRO4 oder ein Spezial-Kontenplan), ob 
man Soll- oder Ist-Versteuerung haben 
möchte und ob mit Fremdwährungen 
gearbeitet werden soll. 


Die Datei ist nun eingerichtet, und die 
Bedienoberfläche der Finanzbuchhaltung 
erscheint wie in Bild 1, wobei natürlich 
noch keine Buchungen zu sehen sind. Als 
nächsten Schritt wird man nun die Fir- 
mendaten, den individuellen Kontenplan 
und die Steuerschlüssel einrichten. Bei 
Bedarf können auch Kostenstellen einge- 


Neue Datei einrichten: 





Beginn des Geschäftsjahres 
(Monat. Jahr): 











Kontenrahnen 3 Ist-Versteuerung 


Tontenslan laden Soll-Versteuerung 











Frendwährungen 


Bild 3: Neue Datei einrichten 





geben werden. Alle diese Einstellungen 
finden sich unter dem Menüpunkt PRO- 
GRAMM und können der Reihe nach 
aufgerufen werden. Wird die aktuelle 
Datei zu einem späteren Zeitpunkt gesi- 
chert, werden diese Einstellungen selbst- 
verständlich mit übernommen. Deshalb 
ist ‘Mandantenfähigkeit’ für die GD- 
FIBU kein Problem, jeder Mandant hat 
eine eigene Datei, in der alle Einstellun- 
gen gespeichert sind. 


Die Firmendaten werden in einer Dialog- 
box -ähnlich wie beim Datei-einrichten in 
Bild 3 - eingegeben. Raffinierter ist da 
schon die Eingabe des Kontenplans. Nach 
dem Anwählen des entsprechenden Me- 
nüs erscheinen eine Dialogbox und ein 
Fenster, welches in beide Richtungen 
gescrollt werden kann (Bild 4). Man gibt 
nun einfach unter ‘Nummer’ die ge- 
wünschte Kontonummer ein und drückt 
<Return>. Sofort erscheint die Standard- 
bezeichnung des gewählten Kontenrah- 
mens (SKR 03 oder SKR 04) als Vorgabe, 
die man aber auch überschreiben kann. 
Bei ‘St-Schl’ hat man die Möglichkeit - 
sofern es für das gewählte Konto zulässig 
ist- einen der 98 möglichen Steuerschlüs- 





sel zu wählen. Dabei müssen die Steuer- 
schlüssel nicht unbedingt vorher unter 
dem Menüpunkt ‘Steuerschlüssel” eige- 
geben worden sein. Man kann einen sol- 
chen auch beim Einrichten des Kontos 
definieren, wodurch lästiges Hin- und 
Herklicken eingespart wird. 


Hat man das eine oder andere Konto ver- 
gessen und merkt dies erst später beim 
Buchen, ist das nicht weiter schlimm. 
Man gibt dann einfach die gewünschte, 
noch nicht existierende Kontonummer 
ein, und die GD-FIBU fragt nach, ob ein 
solches Konto eingerichtet werden soll. 
Solange ein Konto noch nicht bebucht 
worden ist, kann es auch wieder gelöscht 
werden. 


Verb, LSt / KiSt 

Verb. SV AOK 

Verb. SV BEK 
Umsatzsteuer 
USt-Vorauszahlungen 
Erlöse steuerf.Ausland 
Erlöse Beratung 14% 
Erlöse Handel 144 
Erlöse Eigenleist. 144 
bewährte Skonti 
Erträge Kursdifferenz 
Wareneingang USt-frei 
Hareneingang 14 % VSt 
Erhaltene Skonti 
Anschaffungsnebenkost 








Bigenverbrauch 





Bild 4: Der Kontenplan wird erstellt 


Autobuchungen und eine Verwaltung der 
Abschreibungsgüter gibt es in der derzei- 
tigen Version noch nicht. Ersteres wird es 
mit Sicherheit in der nächsten Version 
geben, erleichtert es doch das Buchen 
immer wiederkehrender Vorgänge (Mie- 
te, Bankgebühren,...). Bei der automati- 
schen Verwaltung von Abschreibungsgü- 
tern dagegen ist man sich bei gdat noch 
nicht ganz einig. Vom Programmtechni- 
schen gesehen gäbe es keine Schwierig- 
keiten, wurde mir versichert. 


Der eigentliche Grund für das Fehlen liegt 
darin, daß bei kleinen Unternehmen - die 
Zielgruppe der GD-FIBU - das Jonglieren 
mit den Abschreibungen durch den Steu- 
erberater ein mächtiges Werkzeug ist, um 
die Steuerlast zu mindern. Miteiner Auto- 
matik bestünde dann die Gefahr, daß man 
sich zuwenig Gedanken macht, in dem 
trügerischen Glauben, daß es die Finanz- 
buchhaltung schon richten wird. Dabei 
kann die Automatik nur nach einem Sche- 
ma vorgehen und auf geänderte Rahmen- 
bedingungen nicht reagieren. Es bleibt 
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also abzuwarten, was sich gdat zu diesem 
Punkt einfallen läßt. 


Buchen 


Nach dieser Vorarbeit - die im übrigen 
leichter getan als beschrieben ist - kann 
man nun mit dem Buchen beginnen. Hier 
hat man drei Möglichkeiten, die sich 
jeweils durch die angezeigte Information 
unterscheiden. 


- Buchen ohne Kontoanzeige 
- Buchen mit Kontoanzeige 


- Buchen mit Offener-Posten-Anzeige 
(sofern installiert) 


Zunächst muß unter dem Me- 
nüpunkt ‘Programm’ das Er- 
fassungsprogramm ‘Buchun- 
gen’ geladen werden. Sofort 
baut sich die Buchungsmaske 
auf, und das Programm befin- 
det sich in der Option ‘Buchen 
ohne Anzeige’. 


An dieser Stelle ein kleiner 
Einschub: Der Programmspei- 
cher wird vollkommen dyna- 
misch verwaltet, das heißt, es 
wird nur soviel belegt, wie ge- 
braucht wird. Die einzelnen 
Programmteile im Menü ‘Pro- 
gramm’ werden also solange 
wie möglich im Speicher ge- 
halten und müssen nicht jedes- 
mal neu nachgeladen werden - 
allerdings erst bei 2 MByte Hauptspei- 
cher. Bei einer Festplatte fallen die Lade- 
zeiten sowieso nicht groß ins Gewicht. 





Bei ‘Buchen ohne Anzeige’ erscheinen 
die letzten 14 erfaßten Buchungen im 
Anzeigefeld, sofern überhaupt welche 
vorhanden sind. Diese Option ist vor al- 
lem dazu gedacht, die Buchungen schnell 
zu erfassen. In diesem Modus wird, an- 
stelle des jeweiligen Saldos, das bebuchte 
Konto in derrechten Spalte des Rollfeldes 
angezeigt, um bereits abgelegte Bu- 
chungssätze auf ihre Richtigkeit hin über- 
prüfen zu können. Um den aktuellen Sal- 
do zu kontrollieren, wechselt man in das 
“Anzeige’-Menü und läßt sich das Konto 
ausgeben. 


Möchte man während des Buchens die 
volle Kontrolle über das bebuchte Konto, 
wählt man “Buchen mit Kontoanzeige’. 
Hier wird nach jeder Buchung das be- 
buchte Konto, einschließlich der neuen 
Buchung, angezeigt (Bild 1). Diesmal 
erscheint in der rechten Spalte des Roll- 


feldes der aktuelle Saldo nach jeder Bu- 
chung. 


“Buchen mit Offener-Posten-Anzeige’ 
verwendet man, wenn man den sofortigen 
Überblick über Personenkonten benötigt. 
Es wird hier nicht der Mehrwertsteuer- 
schlüssel angezeigt, sondern die offenen 
Posten. Ist der Saldo ausgeglichen, er- 
scheint eine Fragebox, ob die entspre- 
chenden Posten erledigt sind. 


Der Buchungsvorgang 


Die Art des Buchens ist gewählt, nun 
sollen die Daten folgen. Zunächst muß 
das Konto eingegeben werden. Das ge- 
schieht links unten, unter dem Feld für das 
Datum. Hier wartet der Cursor, als klei- 
nes Rechteck, auf die Eingabe (Bild 1). 
Jetzt hat man man mehrere Möglichkei- 
ten: 


1. Man gibt die gewünschte Kontonum- 
merein.Istdiese Nummer Bestandteil des 
eigenen Kontenplans, erscheint die dazu- 
gehörige Kontoanzeige rechts daneben. 
Ist das Konto jedoch nicht vorhanden, hat 
man die Möglichkeit, es einzurichten. 


2. Man gibt einen Text ein. Wenn dieser 
Text Bestandteileiner Kontobezeichnung 
ist, erscheint wieder rechts daneben die 
gesamte Kontobezeichnung und im lin- 
ken Feld die dazugehörige Kontonum- 
mer. Kommt der Text im Kontenplan 
mehrmals vor, wird der erste passende 
angezeigt. Mit den Cursor-Tasten “auf- 
wärts’ und ‘abwärts’ kann man dann alle 
in Frage kommenden Konten anschauen. 
Sehr nützlich ist das bei den Kunden- und 
Lieferantenkonten, da man den Namen 
durch die Rechnung kennt, aber die Kon- 
tonummer meist nicht auswendig im 
Kopf hat. 


3. Wenn einem gar keine Idee kommt, 
dann hilft vielleicht das ‘?’ weiter. Nach 
der Eingabe erscheinen alle Sachkonten 
des eigenen Kontenplans. Das gewünsch- 
te Konto übernimmt man dann einfach 
mit Mausklick. 


Bei ‘?K werden alle Kundenkonten und 
bei ‘?L’ alle Lieferantenkonten ange- 
zeigt. Die Auswahl erfolgt wieder mit der 
Maus. 


4. Bei installierten offenen Posten kann 
man auch einen ‘*’ und eine Belegnum- 
mer oder einen Belegtext eingeben. Jetzt 
durchsucht das Programm alle nicht 
komprimierten Buchungen. Ist die Suche 
erfolgreich, erscheint das Kunden- oder 
Lieferantenkonto im Kontofeld. Bei einer 
Zahlung muß man also nur die Rech- 
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nungsnummer wissen, das Konto wird 
vom Programm gesucht. 


Als nächste Eingabe ist das Datum fällig. 
Es ist fast unnötig, darauf hinzuweisen, 
daß mehrere Schreibweisen als Eingabe 
zugelassen sind und die Eingabe auf Plau- 
sibilität hin geprüft wird. 


Die Eingabe des Betrages erfolgt im Feld 
‘Soll Haben’. Ohne Vorzeichen wird der 
Buchungsbetrag im Soll (+) gebucht, mit 
einem Minuszeichen im Haben (-). Dieses 
Minuszeichen kann man auch durch 
zweimaliges Drücken der Return-Taste 
erzeugen. Bei installierten Fremdwäh- 
rungen ist es möglich, hinter dem Betrag 
noch ein Kürzel für eine Fremdwährung 
anzugeben. Ist das eingegebene Kürzel 
noch nicht vorhanden, wird nachgefragt, 
ob eine neue Währung eingerichtet wer- 
den soll. Eserscheinteine Box, inderman 
den aktuellen Tageskurs dieser Währung 
eingeben kann. Zu einem Datum können 
verschiedene Kurse angegeben werden, 
etwa bei einem An- und Verkauf von 
Fremdwährungen an einem Tag. Nach 
der Eingabe des Kurses erscheint der um- 
gerechnete DM-Betrag. Die Buchungen 
werden - je nach ausgewählter Option - in 
DM oder der Fremdwährung angezeigt. 
Dies ist besonders hilfreich, um zu erken- 
nen, ob ein Konto mit Fremdwährungen 
ausgeglichen ist. Ohne diese Möglichkeit 
ist das nämlich gar nicht so einfach, da 
man Kursgewinne und Kursverluste be- 
rücksichtigen muß. 


Im nächsten Eingabefeld muß das Gegen- 
konto eingegeben werden. Hier hat man 
dieselben Möglichkeiten wie bei der Ein- 
gabe des Kontos: 


- eine Nummer 

- einen Text 

- einen Beleg 

- ein Fragezeichen. 


Mit der Auswahl von Konto und Gegen- 
konto ist bereits entschieden, ob Mehr- 
wert- oder Vorsteuer zu buchen ist. 
Dementsprechend wird das nächste Feld 
angezeigt oder aber automatisch über- 
sprungen. Ist die Eingabe eines Steuer- 
schlüssels zulässig, bestehen wieder 
mehrere Möglichkeiten: 


1. Automatische Errechnung der Mehr- 
wertsteuer 

Wie schon erwähnt, kann im Kontenplan- 

Editor einem Konto ein Steuerschlüssel 

zugewiesen werden. In diesem Fall wird 

das Feld übersprungen und die errechnete 

Steuer angezeigt. Mit den Cursortasten 
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kommt man allerdings in das Feld zurück, 
um eventuell den vorgegebenen Steuer- 
schlüssel zu ändern. 


2. Buchung ohne Mehrwertsteuer 


Ist keine Mehrwertsteuer zu buchen, gibt 
man einfach Return oder eine ‘0’ ein, und 
der Cursor springt ins nächste Feld. 


3. Buchen mit Steuerschlüssel 


Eine Zahl zwischen 1 und 98 wird als 
Mehrwertsteuerschlüssel verstanden. 
Return beendet wieder die Eingabe, der 
errechnete Betrag steht neben der Konto- 
nummer, und der Cursor springt in das 
nächste Feld. 


Bei der Eingabe-des Steuerschlüssels hat 
man noch ein paar weitere Möglichkei- 
ten, die ich aber nicht alle aufzählen 
möchte. So signa- 


braucht man bei der Eingabe einfach nur 
Return zu drücken, und es wird der Text 
der vorherigen Buchung übernommen. 
Im Falle der Belegnummer wird diese 
sogar um |] hochgezählt, was besonders 
praktisch ist. 


Unter der Rubrik ‘Anzeige’ wählt man 
aus, welche Informationen beim Buchen 
überhaupt zu sehen sind. 


Korrekturen 


Wie schon beschrieben, hat man bei der 
Eingabe der Buchung jederzeit die Mög- 
lichkeit, mit dem Cursor in das vorherige 
Feld zu gelangen, um etwas zu ändern. 
Was aber tun, wenn bereits gebucht ist, 
und es sich im Nachhinein herausstellt, 
daß korrigiert werden muß? Befindet man 
sich im Modus Kontoanzeige, Buchen 





lisiert zum Bei- 
spiel ein ‘i’ inklu- 
siv, der Buchungs- 
betrag wirdnunals 
Bruttobetrag ge- 
wertet. 


Im nächsten Ein- 
gabefeld kann eine 
Belegnummer 
oder eine Kombi- 
nation aus Text 
und Zahlen einge- 
geben werden. Ist 
das Modul ‘Offene 
Posten’ installiert, 
hat man die zu- 
sätzliche Möglich- 
keit, die Buchhaltung nach allen zu dieser 
Nummer erfaßten Buchungen suchen zu 
lassen. Der ausstehende Betrag wird er- 
rechnet und angezeigt. 


Text 


Im folgenden Textfeld kann man mit bis 
zu 20 Zeichen die Buchung kommentie- 
ren. 


Bei installierten offenen Posten kann 
unter bestimmten Voraussetzungen auto- 
matisch ein Skonto gebucht werden. Den 
vom Programm gemachten Vorschlag 
kann man - wie immer - übernehmen oder 
verwerfen. 


Buchungskomfort 


Unter diesem Menüpunkt findet man 
zahlreiche Funktionen, die das schnelle 
Erfassen der Buchungen erleichtern (Bild 
5). Da wären zum einen die Wiederhol- 
funktionen. Ist das entsprechende Feld 
angeklickt (Konto, Datum, Betrag,...), 


Hiederholung: 


BUCHUNGS-KOMFORT: 


Anzeige: 


Skonto-Berechnung 


Bild 5: Einstellbarer Buchungskomfort 








mit Kontoanzeige oder Buchen mit OP- 
Anzeige, kann man ganz einfach mit 
Mausklick korrigieren. Der angeklickte 
Buchungssatz wird in die jeweiligen Ein- 
gabefelder übernommen und kann belie- 
big ediert werden. Mit dem letzten Return 
wird er wieder übernommen. Aber Ach- 
tung: Es wird automatisch eine Stornobu- 
chung angelegt, um den gesetzlichen 
Richtlinien Genüge zu tun, wonach eine 
Aufzeichnung nicht dermaßen verändert 
werden darf, daß man den ursprünglichen 
Inhalt nicht mehr feststellen kann (HGB 
$239/3). 

Allerdings sind korrigierte oder stornierte 
Buchungssätze nur in der Prima-Nota 
sichtbar. Auf den Kontoblättern, dem 
Journal, den Summen- und Saldenlisten 
sowie der betriebswirtschaftlichen Aus- 
wertung sind Stornobuchungen nicht zu 
sehen. Hier erscheinen die bereinigten 
Buchungen und Zahlenwerte, um deren 
Lesbarkeit zu erhöhen. 





Keine Regel ohne Ausnahme: Wird eine 
Buchung am Tag ihrer Erfassung wieder 
korrigiert bzw. storniert, wird dieser 
Vorgang nicht in der Prima-Nota erfaßt. 
In diesem Fall kann man - wohl zu Recht 
- davon ausgehen, daß es sich um einen 
Tip- oder Flüchtigkeitsfehler handelt, der 
nicht zu einer schlechteren Lesbarkeit des 
Zahlenmaterials führen sollte. 


Diese Vorgehensweise hat ihren Ur- 
sprung natürlich in der Praxis und ist 
durch die Steuerberater von gdatabgeseg- 
net. 


Sicherheit... 


... hat bei der Buchhaltung einen sehr 
hohen Stellenwert. Die Aufbewahrungs- 
fristen liegen zwischen 6 und 10 Jahren 
(HGB $257(4)). Nach $261 des HGB 


Datei defekt. 
Alte Kopie lesen? 





Bild 6: Aussagekräftige Fehlermeldung 


müssen in diesem Zeitraum Unterlagen, 
die auf Bild- oder Datenträgern vorliegen, 
auf eigene Kosten lesbar gemacht wer- 
den. Für den Anwender bedeutet dies die 
sorgfältige Auswahl der Datenträger, 
regelmäßige Sicherheitskopien und zum 
Schluß deren sorgfältige Aufbewahrung. 


Vom Programm sollte man erwarten 
können, daß es einem bei dieser Aufgabe 
unterstützt. Die GD-FIBU läßt einen bei 
diesem wichtigen Punkt selbstverständ- 
lich nicht im Stich. Zu jedem Zeitpunkt 
hat man die Möglichkeit, eine Siche- 
rungskopie anzulegen. Dabei ist man 
nicht auf die Kapazität einer Diskette 
beschränkt, sondern eine Datei kann bis 
zu einer maximalen Größe von 12 MByte 
auf mehrere Disketten verteilt werden. 
Sollte der Umfang im Einzelfall tatsäch- 
lich größer sein, empfielt sich sowieso ein 
leistungsfähigeres Backup-Medium wie 
Streamer oder Wechselplatte. Die einge- 
gebenen Daten sind in dem Moment gesi- 
chert, wo mit ‘Datei ablegen’ der kom- 
plette Datensatz auf Massenspeicher ge- 
schrieben wird. 


Sollte während des Abspeicherns ein 
Fehler auftreten, bleibt einem immernoch 
eine ‘BAK’-Datei, und nur die frisch ein- 
gegebenen Daten sind verloren. Darüber 
hinaus kann man eine ‘Datensicherungs- 
Automatik’ aktivieren. Jetzt wird nach 
einer einstellbaren Anzahl von Buchun- 
gen automatisch die Datei gesichert. Die- 
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se Methode ist meiner Meinung nach 
besser als die Vorgabe eines Zeitinter- 
valls, wenn der Rechner den ganzen Tag 
eingeschaltet bleibt. Entweder ist die 
Zeitspanne sehr lang, und im Falle eines 
Ausfalls die verlorenen Daten dement- 
sprechend umfangreich. Oder aber das 
Intervall ist sehr kurz, und der Rechner ist 
ständig am Abspeichern. 


Aber nicht nur im Umgang mit Dateien 
bietet die Finanzbuchhaltung von gdat 
wertvolle Hilfestellung. Viele Macken 
des Betriebssystems werden abgefangen: 
Ein eigener Critical-Error-Handler (also 
die Routine, die für das Abfangen von 
Bedienfehlern zuständig ist) sorgt dafür, 
daß in optisch ansprechender Weise (Bild 
6) der Benutzer eine klare Aussage be- 
kommt. 


Auswertung 


Unter dieser Rubrik möchte ich sowohl 
die Ausdrucke für das Finanzamt als auch 
die Ausdrucke für den eigenen Bedarf zu- 
sammenfassen. Bild 7 zeigt die Druck- 
auswahl, aus der man beliebig auswählen 


DRUCK = AUSHAHL 





Prina-Nota Frendwährungskonten | 


Offene-Posten-Liste 


Konten 


Saldenliste 


Standard-Kontenplan 
Kontenplan 


Auswertung 
__USt-Daten 


Ausgabe auf: MICHI Drucker | 


Bild 7: Alle wichtigen Daten im Zugriff 

















kann. Den Zeitraum, der ausgegeben 
werden soll, legt man einfach per Maus- 
klick fest, desgleichen alle anderen ein- 
stellbaren Parameter. Möchte man Papier 
sparen, kann die Ausgabe auch auf den 
Bildschirm umgelenkt werden. Natürlich 
erscheinen die Daten dort genauso wie auf 
dem Drucker und können auf Wunsch 
auch noch seitenweise gedruckt werden. 
Extra aufgeführt unter ‘Programm’ sind 
die ‘Abrechnung, die ‘Einnahme-Über- 
schuß-Rechnung’ und die ‘Bilanz’. Ab- 
rechnen bedeutet, daß die Prima-Nota, 
das Journal, die Saldenliste, die betriebs- 
wirtschaftliche Auswertung, alle Konten 
und die Werte für die Umsatzsteuervoran- 
meldung ausgedruckt werden. Wichtig 
dabei ist, daß abgerechnete Buchungen 
nicht mehr korrigiert werden können und 
die neuen Daten anstelle der alten abge- 


legt werden. ‘Bilanz’ macht das, was man 
erwartet, die Gliederung hält sich an die 
gesetzlichen Richtlinien des HGB. Glei- 
ches gilt für die EÜ-Rechnung. 


Die Druckqualität hängt natürlich in er- 
ster Linie vom eingesetzten Drucker ab. 
Für alle Ausdrucke kann Blanko-Papier 
verwendet werden, die entsprechenden 
Linien zur Unterteilung erzeugt das Pro- 
gramm. Für den Druck der einzelnen 
Konten kann man auf spezielles Kontopa- 
pier zurückgreifen. Das ist zwar teurer als 
einfaches weißes Papier, aber neben dem 
schöneren Aussehen (Bild 8) beschleu- 
nigt es auch den Ausdruck, da weniger 
Zeichen gedruckt werden müssen. 


An dieser Stelle kann man die Druckaus- 
gabe noch perfektionieren. Von Haus aus 
bietet die GD-FIBU an die 60 verschiede- 
ne Druckertreiber, dieman wahlweise auf 
die parallele Centronic und die serielle 
RS-232C- Schnittstelle loslassen kann. 
Allerdings ist nur ein Druckertreiber für 
eine der beiden Schnittstellen wählbar. 
Sehrangenehm wäre es, für beide Schnitt- 
stellen gleichzeitig je einen - auch unter- 
schiedlichen - Treiber installieren zu 
können: den einen für die speziellen 
Kontoblätter (Matrixdrucker), den ande- 
ren für die ‘schönen’ Ausdrucke (Laser- 
drucker). Aber für die nächste Version der 
GD-FIBU muß ja auch noch etwas übrig- 
bleiben. Man kann ja jetzt schon immer- 
hin zwei Drucker anschließen und den 
jeweiligen Druckertreiber dann nachla- 
den. Übrigens funktioniert der ATARI- 
Laserdrucker momentan mit der Epson- 
FX80-Emulation. Ein eigener Treiber ist 
aber bereits in Arbeit. 


Mit den oben angeführten Auswertungs- 
möglichkeiten ist man in der Lage, jeder- 
zeit einen kompletten Überblick über die 
wirtschaftliche Leistungsfähigkeit seines 
Betriebes zu erhalten. Dabei ist man sehr 
flexibel und stößt auf keine Grenzen, die 
durch das Programm bedingt sind. Allen- 
falls durch den äußeren, gesetzlichen 
Rahmen ist nicht alles erlaubt, was pro- 
grammtechnisch möglich wäre. 


Service... 


.. wird bei gdat großgeschrieben. Man 
erhält alles, was im Zusammenhang mit 
der Buchhaltung nötig ist, angefangen bei 
den Kontoblättern von Bild 8 über die 
diversen Carbon-Farbbänder bis hin zur 
kompletten, quasi schlüsselfertigen 
Rechneranlage. 


An Dienstleistungen hat gdat eine vier- 
stündige Einführung, eine Einsatzbera- 
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Bild 8: Mit Kontopapier ist es noch schöner. 


tung (1.5 Stunden) und eine monatliche 
Software-Pflege im Programm. Die Ein- 
führung wird von Steuer- und Wirt- 
schaftsberatern durchgeführt, diemitgdat 
zusammenarbeiten. Damit ist eine kom- 
petente Beratung sichergestellt. Die Ein- 
satzberatung findet in Bielefeld oder tele- 
fonisch ebenfalls durch Steuerberater 
statt. 


Bliebe noch die Software-Pflege. Darun- 
ter ist zu verstehen, daß gdat für einen 
gewissen, monatlichen Betrag eine stän- 
dige Pflege der Software übernimmt. 
Hierunter fällt die telefonische Beratung 
von gdat beim Programmeinsatz, der 
schnelle Ersatz von beschädigten ROM- 
Modulen oder Disketten und, daß die 
Software automatisch immer auf dem 
neuesten Stand gehalten wird. Ausdrück- 
lich betonen möchte ich, daß hierunter 
nicht der normale Update-Service und die 
akute Fehlerbeseitigung fallen. Beineuen 
Programmversionen werden alle Anwen- 
der automatisch benachrichtigt, bei Feh- 
lern erhalten ebenfalls alle eine korrigier- 
te Version. Bei speziellen Kundenwün- 
schen kann gdat auch eine individuelle 
Anpassung vornehmen. Aus einer sol- 
chen Anpassung ist zum Beispiel ein 
Programm entstanden, das es ermöglicht, 
Kostenstellen von verschiedenen Rech- 
nern zu bebuchen. In der Hauptbuchhal- 
tung wird dann alles zusammengefaßt. 
Nützlich ist das für räumlich getrennte 
Institutionen wie Vereine oder Behörden. 


Die gdat-Bubbles 


Hier wollte ich eigentlich die vielen Klei- 
nigkeiten darstellen, die zeigen, mit wie- 
viel Liebe zum Detail die GD-FIBU pro- 


sche Dunkel- 
schaltung und 
die kleine Ana- 
loguhr im rech- 
ten oberen Eck 
gehören dazu. Stellvertretend für all diese 
gdat-Goodies möchte ich nur auf die 
Dateiauswahlbox 
eingehen (Bild 9). 





ODORDNER-6 

UOAPL «PRG 
FCALAMUS ‚CRG 
COLUMBIA .CVG 
EDEORS ‚PIZ 
DOKUMENT.CTX 
BZEPSON ‚CF6G 
ZFIBU_89 ‚FIB 
Ü6D_FIBU ‚AWS 


Die Verschachte- 
lungstiefe der Ord- 
ner wird grafisch 
übersichtlich an- 
gezeigt, die unter- 
schiedlichen Da- 


teien haben jeweils EKUNDEN .SDO 
ein eigenes, grafi- -=L0TUS .DIF 
sches Symbol ÜNIRAGE ‚TOS 





A 
mir ZNEL_P6 ‚GDP 


hängig). Dank ei- 
ner assoziativen 
Namenssuche werden auch fast nur rich- 
tig geschriebene Dateien gefunden. Vom 
Anwenderprogramm, welches die File- 
Selector-Box aufruft, kann auch die File- 
Kennung vorgegeben werden, also zum 
Beispiel *.BAK oder *.PRG. Andere 
File-Typen können dann gar nicht mehr 
geladen werden. Dadurch profitiert natür- 
lich die GD-FIBU, die so gegen Fehlbe- 
dienungen gesichert ist. 


Ausblicke? 


Die GD-FIBU wird nicht alleine bleiben, 
eine Fakturierung ist bereits bei ausge- 
wählten Firmen im Testeinsatz, eine 
Lohnbuchhaltung ist in der Entstehungs- 
phase. Die einzelnen Programme werden 
natürlich die Daten soweit wie möglich 
austauschen können. An einer Netzwerk- 
lösung für die Finanzbuchhaltung wird 
ebenfalls gearbeitet. Eine DATEV-kom- 
patible Abspeicherung der Daten ist pro- 
grammtechnisch bereits realisiert und 
muß nur noch integriert werden. Gdat hat 








den Ergeiz, eine komplette Verwaltungs- 
Software auf die Beine zu stellen. 


Und nun? 


Die GD-FIBU besticht durch ihre Lei- 
stungsfähigkeit und die Benutzerfreund- 
lichkeit. Die Einarbeitungszeitistüberaus 
kurz, alles ist gegen Fehlbedienung abge- 
sichert. Die Handbücher kommen in ei- 
nem stabilen Schuber daher, sind ordent- 
lich aufgebaut und übersichtlich geglie- 
dert. Hervorzuheben ist der Komplett- 
Service von gdat, der auch den Computer- 
Neuling nicht alleine läßt. Eine runde 
Sache also. 


C.D. Ziegler 


itte Datei auswählen! 





Bild 9: Die komfortabelste Dateiauswahl, die ich kenne. 


Preise 


GD-SYS, Basissystem 
GD-FIBU 


Module: 


Bilanz 
Abschlußformatierung 
Fremdwährung 
Offene Posten 


Kostenstellen 


Kontenplanverwaltung 


Demoversion 89.- 
Diskette mit allen Unterlagen wird 
beim nachfolgenden Kauf voll angerechnet 


Demodiskette 15.- 
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SCARABUS 2.0 


Der Profi-Fonteditor für 
SIGNUM2! und SCRIPT 


Zu Beginn dieses Testberichtes möchte 
ich der ST-Redaktion dafür danken, 
daß sie mir genügend Zeit zum Testen 
ließ. Entgegen der gängigen Praxis 
anderer Magazine, Vorversionen in 
Windeseile von hierzu kurzzeitig frei- 
gestellten Mitarbeitern testen zu las- 
sen, durfte ich SCARABUS 2.0 zwei 
Monate lang auf Herz und Nieren prü- 
fen. Anwendungsfeld des Testes waren 
die Verbesserungen und Erweiterun- 
gen meiner Fontdisketten Theolfont 
plus 2.0 und Arabicum 2.0 sowie der 
neuen Professional Fontdisk 3.0 [zu 
den Font(Zeichensatz)-Disketten Nä- 
heres am Schluß]. Erster Pluspunkt für 
SCARABUS 2.0 war seine Bombensi- 
cherheit. In 2 Monaten täglicher, oft 
mehr als 8 Stunden dauernder Arbeit 
ist es mir nicht gelungen, das Pro- 
gramm zum Absturz zu bringen. 


Bei SCARABUS 2.0 handelt es sich um 
die neue Version des “erweiterten Fonte- 
ditors” für das Textverarbeitungspro- 
gramm SIGNUM!, über das ich wegen 
seiner Beliebtheit auf dem ATARI ST 
keine Worte verlieren muß. Daß die SIG- 
NUM!-Anwender sehr arbeitssam sind, 
was das Fonterstellen angeht, beweisen 
die inzwischen über 1000 SIGNUM!- 
Fonts. Das neue Textverarbeitungspro- 
gramm SCRIPT derselben Softwarefir- 
ma Application Systems kann die SIG- 
NUM!-Fonts ebenfalls verwenden (256! 
gleichzeitig), weshalb sich das Anwen- 
dungsgebiet von SCARABUS nun auch 
auf SCRIPT erstreckt. 


Professioneller Editor 


In dem Testbericht einer anderen ST- 
ZeitschrifthießeszuSCARABUS 1.0,es 
handele sichnurumeine aufgepeppte Zu- 


sammenfassung der drei Original-SIG- 
NUM!-Fonteditoren (im folgenden kurz: 
OFE). Entschuldigen Sie bitte die Schär- 
fe! Zu solch einem Urteil kann m.E. nur 
ein Tester kommen, der ein wenig “gete- 
stet” hat, nicht jedoch professionell damit 
arbeiten mußte. Was verstehe ich nun 
unter professioneller Fonterstellung? Ein 
Profi-Fonteditor muß es mir erlauben, in 
angemessener Zeit kalligraphisch saube- 
re, korrekt proportionierte Fonts zu erstel- 
len. 


Hierzu dient erstens die Möglichkeit, 
gescannte Vorlagen wie ein Alphabet als 
Bild einzulesen und buchstabenweise zu 
verarbeiten. 


Zweitens benötigt man horizontale und 
vertikale Hilfslinien, die zwar nicht abge- 
speichert werden, aber die Orientierung 
erleichtern. Aus leidvoller Erfahrung mit 
dem OFE weiß ich, wie umständlich es 
vor zwei Jahren bei der Erstellung meiner 
Hebräischfonts zuging. Die hebräischen 
Vokale sitzen sublinear unter den Konso- 
nanten. Ständig mußte abgezählt werden, 
damit alles stimmte (s. Bild 1). 


Drittens wird der professionelle Anwen- 
der (z.B. Universitäten, Firmen) stets 
mehr als nur ein Druckerformat bearbei- 
ten müssen: für 9- und 24-Nadler sowie 
Laserdrucker. Gegenüber den drei Pro- 
grammen des OFE hat er es bei SCARA- 
BUS nur mit einem integrierten Pro- 
gramm zu tun. (Bei SCARABUS 2.0 ist 
übrigens der kleine Fehler der Version 1.0 
behoben. Jetzt wird beim Umschalten von 
einem in das andere Format die Propor- 
tion gleich richtig angezeigt.) Unter die- 
sem Punkt ist auch die Formatkonversion 
aufzuführen. Mit SCARABUS ist es 
möglich, aus jedem Format (P9/P24/L30) 
in eines der drei Formate zu konvertieren. 
Als Spezialanwendung gibt es die Kon- 
version ohne Formatanpassung. Ich habe 
damit aus Times-11-italic-L30 (Laser) 
eine bessere Vorlage für Times-9-italic- 
P24 (24-Nadler) erzeugt, als wenn ich aus 
Times-9-italic L30 per Konversion mit 
Formatanpassung Times-9-italic-P24 
erzeugt hätte. 


Bearbeitungs- 

möglichkeiten 

Viertens braucht der professionelle An- 
wender von einem bestimmten Font wie 
den TIMES-Fonts der Professional Font- 
disk mehrere Größen (z.B. 13-Punkt für 
Überschriften, 11-Punkt für Haupt- und 
9-Punkt für Fußnotentext) sowie Schrift- 
arten (z.B. kursiv, fett, outlined, shado- 
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wed). Wie bei den meisten Computertext- 
verarbeitungen kann man natürlich mit 
SIGNUM! und SCRIPT eine verwendete 
Schriftart mit den Optionen breit, fett, 
groß etc. kombinieren, doch das Ergebnis 
ist für ein geübtes Auge höchst unbefrie- 
digend. Ein Ausweg wären hier Vektor- 
fonts wie bei CALAMUS. Demgegenü- 
ber haben Sie aber mit SCARABUS (wie 
dem OFE) die Möglichkeit, die Fonts 
Punkt für Punkt ganz auf das jeweilige 
Druckermedium einzustellen. Ich selbst 
benutze dabei undokumentierte Tricks, 
die es mir erlauben, auch Feinheiten 
punktgenau zu zeichnen. Diese Feinhei- 
ten und Ebenmäßigkeit sind mit CALA- 
MUS oder anderen Programmen, die auf 
Vektorfonts arbeiten, nicht möglich 
(sinnvolles Anwendungsgebiet für Vek- 
torfonts sind sehr hohe Punktgrößen bzw. 
Lichtsatzmaschinen). Die Option kursiv 
können Sie bei SIGNUM! und SCRIPT 
zwar benutzen, doch wie auch sonst üb- 
lich, werden die vorhandenen Fonts hier- 
bei nur geneigt. Abgesehen von den dabei 
auftretenden Rechenfehlern ist ein ge- 
neigter Font noch kein kursiver, der eben 
andere Formen hat (vgl. a, e, f, ß). Dieses 
Wissen müssen Sie schon selbst mitbrin- 
gen. SCARABUS bietet aber die Mög- 
lichkeit (bei SCARABUS 2.0 endlich 
nicht nur für ein Zeichen, sondern gleich 
auf den ganzen Font anwendbar), Fonts 
gleichzeitig zu verbreitern und zu strek- 
ken (analog kürzer und schmäler), zu 
verdicken, helle, outlined (anstatt des 
üblichen Buchstabens nur die leichten 
Umrißlinien), schattierte (shadowed) und 
inverse Fonts zu erzeugen. Wer noch 
mehr Tatendrang hat, kann mit einem der 
36 vorgegebenen Füllmuster seine Fonts 
bearbeiten (s. Bild 1). 


Font tauschen 


Fünftens ist es in den in Frage kommen- 
den Anwenderkreisen manchmal nötig, 
individuelle Tastaturbelegungen für Spe- 
zialanwendungen zu erstellen. Das sind 
einerseits Publikationen. Für das Buch 
Diethelm Michel, Untersuchungen zur 
Eigenart des Buches Qohelet, Berlin- 
New York 1989 (BZAW 183) brauchte 
ich zwölf Fonts, die auf den sieben Posi- 
tionen bei SIGNUM!2! unterzubringen 
waren. Andererseits müssen für die fran- 
zösischen, amerikanisch-englischen, dä- 
nisch-skandinavischen Versionen meiner 
Fontdisketten jeweils an die landesübli- 
che ST-Tastatur angepaßte Belegungen 
erarbeitet werden. Für die 15 Fonts mei- 
ner THEOLFONT plus (in Wirklichkeit 
sind es 45, wenn man die drei Druckfor- 
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Bild 2: “Font tauschen” (helle Zeichen aus Font B) 


mate berücksichtigt) brauchte ich hierfür 
mit dem OFE mehrere Tage harter Arbeit 
- eingerechnet die vielen lauernden Feh- 
lerquellen. MitSCARABUS 2.0 geht dies 
unter dem Punkt “Font tauschen” in 
wenigen Stunden. Der eigentliche Kon- 
versionsvorgang mit SCARABUS dauert 
hierbei stets nur Sekunden. Die meiste 
Zeit vergeht mit der Vorarbeit, der Erstel- 
lung der neuen Tastaturbelegungspläne. 
Da stets alle drei Formate gleichzeitig 
getauscht werden können, fällt die Feh- 
lerquelle weg, in einem Format einen 
Buchstaben vergessen zu haben (s. Bild 2 
und 3). Alle genannten Optionen von 
SCARABUS 2.0 erleichtern dem profes- 
sionellen wie dem passionierten, privaten 
Anwender die Fonterstellungsarbeit, die 
ersomitdem ansonsten guten SIGNUM!- 
OFE nicht bewerkstelligen kann. 
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Tauschdatei laden ' 
Tauschdatei speichern 


Tauschtabelle rücksetzen 





SCARABUS 2.0 


Worin liegen nun die Unterschiede zwi- 
schen der Version 1.0 und 2.0? Die Ver- 
sion 2.0 bietet wie die Version 1.0 die 
Möglichkeit, das Programm alternativ 
über die Tastatur wie mit der Maus zu 
bedienen. Die Version 2.0 ordnet die mit 
der Maus auszuwählenden Optionen je- 
doch erheblich ergonomischer an, ver- 
zichtet auf unsinnige Tastaturbefehle und 
erleichtert das Pixeln. 


Die alte Version glänzte beim Pixeln 
(Setzen und Löschen der einzelnen Punk- 
te) gegenüber dem OFE mit einer unaus- 
stehlichen Lahmheit. Das Problem wurde 
dahingehend gelöst, daß nun nur noch die 
linke Maustaste aktiv ist. Gelöscht wird 
mit Shift-linke Maustaste. Obwohl ich 
seit 2 1/2 Jahren den OFE gewohnt bin 
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Monitor und 


Der NEC MultiSync 3D. 


Die Auflösung des NEC MultiSync 3D 
reicht bis zu 1024 x 768 Punkten ( 
notwendiges Anhängsel zum PC betrachten, Das heiß kompatibel zu GA, standards einzustellen. Damit entfällt das 
dann sollten Sie jetzt schnell umdenken. VGA. Natürlich auch zu SuperVGA, dem mühsame Nachjustieren des Monitors. 
; wird Sie davon neuen internationalen Grafikstandard. 
richtigen Vergleichen Sie den MultiSync 3D 
ruhig mit anderen Monitoren. 
Besser arbeiten mit Digital Control. Ihr NEC Fachhändler erwartet Sie. 
ch sonst hat der MultiSy 
Flexible Technik ga ge zu bieten. Einen ent: 
Immerhin zeigt Ihr Monitor, was der blendfreien 14 Zoll-Bildschirm. 
PC Ihnen zu sagen hat. Da macht es Farben. Ein ergonomisches Design, das vom 
einen Unterschied, ob Sie nur 16 oder 256 Haus Industrieform Essen ausgezeichnet “ 
Farben darstellen können. Oder-ob das Bild wurde. Und das von NEC neuentwickelte Sa A zu NEC 
i i Digital Control. 3 J . 


flimmert oder nicht. 


Weitere Informationen erhalten Sie von: 
NEC Deutschland GmbH - Klausenburger Straße 4 - 8000 München 80 - Telefon: 089/930 06-345 
Fax: 089/93 77 76/8 - Telex: 5218073 und 5 218074 necm d 


(Setzen: linke Maustaste, Löschen: rech- 
te), fällt mir das Umsteigen auf SCARA- 
BUS 2.0 relativ leicht. Bloß beim paralle- 
len Anwenden von SCARABUS 2.0 und 
dem OFE innerhalb weniger Stunden (in 
außergewöhnlichen Fällen) ergeben sich 
leichte Umstellungsprobleme. Wie be- 
reits oben erwähnt, sind jetzt einige Op- 
tionen auf den ganzen Font anwendbar, 
die früher nur für einzelne Zeichen aufruf- 
bar waren. 


Handbuch 


Das Handbuch ist übersichtlich und klar 
geschrieben. Den alten Hasen sei angera- 
ten, es auch dann durchzulesen, wenn 
man mit dem leicht zu bedienenden Pro- 
gramm auch so schon zurecht kam. Es 
stecken nämlich einige hilfreiche Hin- 
weise drin, die man sich so nur über lange 
Umwege zufällig erschließt. In Verbin- 
dung mit der Shift-Taste wirken z.B. be- 
stimmte Funktionen kontinuierlich. Jetzt 
sind Verschiebearbeiten schnell und 
leicht zu erledigen. Wer spezielle Infor- 
mationen zur Technik der einzelnen 
Drucker, dem Speicherformat etc. 
wünscht, sollte auf das SIGNUM!2- 
Handbuch (das SCRIPT-Handbuch ken- 
ne ich noch nicht) zurückgreifen. 


Kleine Wermutstropfen 


Anfangs verwies ich auf einen anderen 
SCARABUS-Testbericht. Diesem ent- 
gingen die in SCARABUS 1.0 enthalte- 
nen Fehler. Damit ist niemand geholfen. 
Meines Erachtens hilft ein ehrlicher Test 
dem Programmierer wie dem Anwender. 
Wegen der nachfolgend beschriebenen, 
noch vorhandenen Unstimmigkeiten 
habe ich mich bereits mit dem Program- 
mierer in Verbindung gesetzt. Er war für 
die Hinweise sehr dankbar. Für ein Up- 
date konnte er mir noch keinen genauen 
Termin angeben, doch er versprach, sich 
sobald wie möglich an die Behebung der 
Kritikpunkte zu machen. 


Bezüglich der zu bemängelnden Pro- 
grammpunkte muß fairerweise bemerkt 
werden, daß Sie nur bei Spezialanwen- 
dungen ins Gewicht fallen, während sie 
bei gängigen Anwendungen gar nicht 
benutzt werden. 


Der störendste Fehler tritt beim Odern 
unter “Font spezial” auf. Mittels dieses 
Menüpunktes sollte es u.a. möglich sein, 
Umschrift- (Transkriptions-) und Euro- 
fonts zu erstellen. Einziges Problem hier- 
bei ist nur, daß SCARABUS 2.0 die Pro- 
portionen wahllos einstellt. Mal nimmt er 
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Bild 3: “Font spezial” - für buchstabenweises Bearbeiten 


die des zu odernden, dann die des über- 
schreibenden Zeichens, aber auch eigen- 
ständig gewählte Proportionen. Mein Tip: 
Bevor Sie odern, sollten Sie den betref- 
fenden Font pur abspeichern und danach 
auf Position B laden und Buchstaben für 
Buchstaben die Proportionen vergleichen 
und verbessern. Für den, der wie ich alle 
drei Druckerformate bearbeiten muß, ist 
dieses Verfahren immer noch erheblich 
einfacher, als mit dem OFE alle drei For- 
mate einzeln odern zu müssen. (Dieser 
Fehler wird laut Auskunft des Program- 
mautors leicht zu beheben sein.) 


Wer sehr große Fonts erstellen will oder 
wie beim Hebräischen sehr tief oder hoch 
sitzende Buchstaben und Zeichen hat, 
wird merken, daß gegenüber dem OFE 
das Druckernetz in der Vertikalen aus 
Platzmangel verkleinert ist. Der Hinweis, 
gegenüber dem OFE nach oben und unten 
z.T. ohne Verluste verschieben zu kön- 
nen, kann mich nicht befriedigen. Für 
diese Anwendungen wird ein neues Kon- 
zept erarbeitet werden müssen. Hierzu 
zählt auch das Problem mit dem Zahlen- 
feld des Menüpunktes “Font spezial”: 
Alles was über eine bestimmte Höhe und 
Tiefe hinausgeht, wird nicht mehr darge- 
stellt (bezieht sich nicht auf den wirkli- 
chen Editor- und Druckerfont), sondern 
nur auf die Monitordarstellung innerhalb 
dieses Menüpunktes. 


Unter “Font tauschen” sollte die Alterna- 
tive bestehen, einerseits in der momentan 
gewohnten Weise die Fonts darzustellen 
(optimal für lateinische Schriften), ande- 
rerseits die wirklichen Editorfonts anzu- 
zeigen. Wenn ich z.B. einen Arabischfont 
umbelegen muß, der sich an der arabi- 


schen Schreibmaschine orientierte, habe 
ich keine Assoziationsmöglichkeit mit 
den angezeigten lateinischen Buchsta- 
ben. 


Unproportionaler Font: Dieser Menü- 
punkt ist an sich sehr begrüßenswert, 
doch verbesserungsbedürftig. Momentan 
sucht SCARABUS die größte Proportion 
innerhalb eines Fonts (wird in der Regel 
"W” oder “M” sein), stellt alle Proportio- 
nen auf diesen Wert und zentriert alle 
Buchstaben diesbezüglich. Sinnvoller 
wäre es, einen etwas kleineren Propor- 
tionswert vorgeben zu können. Die Pro- 
portion orientiert sich nämlich eher am 
kleinen “m”; d.h., die Großbuchstaben 
werden in einem unproportionalen Font 
etwas gestaucht werden müssen. 


Ich selbst hatte auf einem Mega 4 [mit 
2200 kB RAM-Disk (Flexdisk)] keine 
Speicherplatzprobleme. Auf einem 1040 
soll es bei vielen Accessories schon mal 
eng werden können (wurde mirberichtet). 
Erstellen Sie sich dann für die Arbeit mit 
SCARABUS eine eigene Arbeitsdisk 
ohne Accessories. An dieser Stelle noch 
eine Merkwürdigkeit. SCARABUS 
selbst stürzte nie ab. Wenn ich aber direkt 
nach der Arbeit mit SCARABUS das 
Druckprogramm aufrief, stürzte dieses 
mit 2-3 Bomben manchmal ab. Liegt dies 
an der Speicherverwaltung, -freigebung 
durch SCARABUS? 


Fazit 


Wer als privater Anwender ausgefallene 
Fonts (outlined, shadowed etc.) erstellen 
möchte, sollte den Kauf vonSCARABUS 
2.0 in Erwägung ziehen. Der reine Hob- 


byanwender, der nur mal einen schon 
vorhandenen Font bearbeiten möchte, ist 
mit den drei Original-SIGNUM-Fontedi- 
toren bestens bedient - zumal dieser 
Anwender es nur mit einem Druckertyp 
zu tun hat. Für den professionellen An- 
wender gibt es keine Alternative zu 
SCARABUS 2.0. Allein die Zeitersparnis 
amortisiertschon den Kaufpreis von 100,- 
DM innerhalb kurzer Zeit. 


Veit Brixius 


SOFTWARE 


P.S.: Bezüglich der Fontdisketten Arabi- 
cum 2.0 (Arab.-Pers., Umschrift), Theol- 
font plus 2.0 (Hebr. Griech., Kopt., Jidd., 
Syr.) und Professional Fontdisk 3.0 
(Times) dürfen Sie sich an mich wenden, 
wenn Sie Ihrer Anfrage mindestens 2,40 
DM (Rückporto) in Briefmarken beile- 
gen. Herzlichen Dank! 


Veit Brixius 
Römerstr. 48 
D-6501 Budenheim 


Bezugsadresse: 


Application Systems /I! Heidelberg 
Englerstr. 3 

6900 Heidelberg 

Tel.: 06221/300002 
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2x3 1/2” + 5 1/4” in einem Gehäu: 


Grundausstattung: 100% ST-Compatibel PDD EINZELSTATION (720 KB) 335, - 
* MIT NEC 1037a/1036a grau - ’ = 
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100% XT, ATARI kompatibel IBM XT Emulator 
arbeitet 100% mit ATARI Programmen, keine Störungen dergleichen, wesentlich schneller als 
ein IBM XT, unterstützt hochauflösende Grafik Text Modus ebenso, 704 KB freier Speicher, 
hervorragendes Bildschirm-Bild; Festplatten plus Disketten plus Drucker kompatibel, keine 
Probleme! 

Preis: 545.- 


Express-Einbau + 75.- SOFORT LIEFERBAR 







12” Bildschirm 640 x440 Pixel, RGB analog, 8 Graustufen, s/w Bildschirm, flimmerfrei. Außer- 
dem EGA/VGA/CGA/PS-2 mögl. 100% ST kompatibel; wird komplett geliefert mit Monitorstecker 
für ATARI, Kabel, Netzteil, Ständer. Aufstellen, einstecken, läuft... 
Preis: 2.998,- 


_ATARI PC-Laufwerke 


Einfach professionell 
















229, - 445, — 299, — 599, — 

pP D D 4 wie PDD-3, jedoch mit 2 MB-Laufwerk (1,44 MB - über 2 MR formatierbar) Sub-Miniatur-D-Stecker (statt Buchsen; 
Atari Kabel für 2 Laufwerke, Bedienungsanleitung. Achtung: Bei allen Atari ST Modellen läuft dieses Laufwerk nur 
mit 1 MB (wegen Floppy-Controller), wie liefern jedoch bald Hardware-Zusatz, damit Ihr ST auch mit 2 MB läuft. 

NEUESTE V 2.5 

FLAT LC DISPLAY 

für ATARI ST 3 1/2”, 5 1/4” Laufwerke, gemischt Stationen 

kompl. anschlußfertig Preis auf Anfrage 


läuft am IBM, Atari ST, Atari Il, Atari Workstation, etc. komplett im Metallgehäuse grau, eingebautes Spezialnetz- 
498 .- D M Nähere Information: Bitte nachfragen! Kaufen Sie sich nicht für jeden neuen Rechner ein zusätzlich neues Laufwerk. 
Professionelle SCSI 


teil, Netzschalter, Netzkabel, A/B Umschalter, 1/72 MB Umschalter (bei 2 MB Rechnern geht das automatisch); mit 
PC-Speed 
Festplatten 
Goethestraße 7 - 6101 Fränkisch-Crumbach - Telefon 06164-4601 + 3748 - abends zwischen 19.00 + 20.00 Uhr ebenso. 
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SPC-AdiProg 


Daten bunkern mit 
Modula-2 


Die Datenbank-Software ADIMENS 
ist für die verschiedensten Rechnersy- 
steme erhältlich. Zur Entwicklung von 
Anwenderprogrammen gibt es zusätz- 
lich eine Programmierschnittstelle 
namens AdiProg, mit der die Daten- 
bankfunktionen in selbstprogram- 
mierte Applikationen eingebunden 
werden können. Nach ST-Versionen 
für Mark-Williams-C und Turbo-C 
gibt es das System jetzt auch passend 
für Modula-Programmierer mit dem 
SPC-System von Advanced Applica- 
tions Viezena (AAV). 


Die ADIMENS-Implementierung für den 
ATARLST ist schon eine Weile auf dem 
Markt und wurde in ST-Computer 1/87 
vorgestellt. Einen Test der PROG- 
Schnittstelle für C finden Sie in Heft 11/ 
88. ADIMENS ist eine relationale Daten- 
bank, die Daten werden also in Tabellen- 
form gespeichert, und einzelne Felder 
können als Schlüssel z.B. zum Sortieren 


verwendet werden. Zwischen mehreren 
Tabellen bzw. Dateien können Verbin- 
dungen über Felder existieren, in zwei 
oder mehr Dateien identisch vorkommen. 
Sind solche Verbindungen, die Relatio- 
nen über mehrere Dateien, möglich, ha- 
ben wir eine relationale Datenbank. Eine 
kleine Serie zur Programmierung solcher 
Datenbanken finden Sie in ST-Computer 
4-6/88, allerdings dort auf dBASE-Kom- 
patible bezogen. 


Dieser Test soll sich nur mit der AAV- 
Implementierung beschäftigen und nicht 
in die Datenbanktheorie einsteigen. Am 
Anfang der Arbeit mit einem Software- 
Produkt steht immer die Installation. Und 
die gestaltet sich bei SPC-AdiProg ein- 
fach. 


SPC-Modula wird durch eine - in der 
aktuellen Version grafische - Shell ge- 
steuert, in der Suchpfade für das gesamte 
System verwaltet werden. Die Installa- 
tion beschränkt sich also auf das Kopieren 


sämtlicher Dateien von der doppelseiti- 
gen Lieferdiskette und Setzen der Such- 
pfade mit dem SPC-Utility PATHS. Wei- 
tere Schritte sind nicht notwendig. 


Zur Definition einer Datenbank wird das 
Originalprogramm INIT Version 2.3 von 
ADIMENS mitgeliefert. Es erlaubt auf 
komfortable Weise GEM-gestützt die 
Erstellung einer Datenbank mit Feld- und 
Maskendefinitionen. Auch Verzweigun- 
gen zwischen Dateien können ediert wer- 
den. Das zweite Originalprogramm, 
REORG (Version 2.23) muß von Zeit zu 
Zeit auf die Datenbank angesetzt werden, 
um auftretende Löcher in der Indexdatei 
zu entfernen. 


Die Modulsammlung ist aufgeteilt in die 
eigentliche ADI-Schnittstelle samt Hilfs- 
modulen, einen Listen- und einen Mas- 
kengenerator sowie die Wordplus- 
Schnittstelle WPProg. Zur Vereinfa- 
chung der Programmierung gibt es zu- 
sätzlich das Modul EasyPROG. 


Die ADI-Schnittstelle 


Für den Programmierer laufen die eigent- 
lichen Aufrufe der AdiProg-Funktionen 
über das Modul Adilnterface. Hier finden 
sich die Routinen z.B. zum Öffnen einer 
Datenbank oder zum Einlesen eines Da- 
tensatzes. Diese Funktionen sind der Kern 
des Datenbanksystems und erlauben für 
den Programmierer den Zugriff auf die 
Datenbank, die darin enthaltenen Dateien 
und die eigentlichen Datensätze und de- 
ren Felder. Mit Find, Look und Next kann 
der Dateizeiger entsprechend einem 
Suchmuster positioniert werden. Die 
Anzahl der Kernroutinen ist gering und 
bei allen AdiProg-Implementierungen 
identisch. 


Von ADIMENS ist inzwischen eine net- 
zwerkfähige Version erhältlich, die mit 
eLAN, Bionet und Rhonet arbeitet. AAV 
plant für die Netzwerkunterstützung wohl 
eine eigene Lösung. Diese Situation ist 
nicht weiter verwunderlich, da auch die 
Anbieter von Netzwerken momentan 
Software-Unterstützung zunächst für C- 
Systeme anbieten. 


Zur Arbeit mit den eingelesenen Daten 
dient AdiUtilities. Die bereitgestellten 
Funktionen konvertieren z.B. Daten von 
Zeichenketten in die ADI-interne Dar- 
stellung und umgekehrt und bieten einige 
Routinen zur Manipulation des Daten- 
satz-Puffers. Auch finden sich hier Routi- 
nen zur Verarbeitung der Mengen von 
Adimens (512 Elemente, 64 Bytes) und 
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die Funktionen zur Datumsdarstellung, 
wobei vier landesspezifische Parameter- 
sätze implementiert sind. 


Ebenfalls in AdiUrilities sind einige Rou- 
tinen für die interne Speicherverwaltung 
des Datenbankkerns vorhanden. Von ih- 
rer Benutzung wird dringend abgeraten, 
vielleicht hätten sie in ein extra Modul 
gehört. 


Der gesamte Kern von ADIMENS istinC 
programmiert und liegt als ADI.PRG vor. 
Bei der Initialisierung der ADI-Schnitt- 
stelle aus dem Modula-Programm heraus 
wird dieser cirka 65 kByte große Kern von 
Disk oder Platte während der Laufzeit 
nachgeladen und dabei einmalig der 
Zugriffspfad in einer Environment-Va- 
riablen vermerkt. Zwei weitere interne 
Module übernehmen das Laden und 
Ermitteln der C-Routinen automatisch. 
Da der direkte Start von ADI.PRG vom 
Desktop keinen Sinn macht, wäre hier 
vielleicht ein Umbennen, z.B. ADI.IMG, 
wünschenswert. 


Zur Abrundung der eigentlichen ADI- 
Schnittstelle sind im Modul Utilities wei- 
tere Hilfsroutinen vorhanden. Datensätze 
können in Strings für eine Listenausgabe 
oder in 24*79 Zeichen Bildschirm-Puffer 
konvertiert werden. Auch sind hier die 
Feldnamen abfragbar. Zur Verwendung 
der Struktur der Datenbank kann auf das 
nächste Schlüsselfeld geschaltet und die 
in INIT definierten Verzweigungen zwi- 
schen Dateien benutzt werden. 


Dieser Kern der AdiProg-Routinen ent- 
hält gegenüber der C-Version nicht die 
Routinen, die beispielsweise das Datei- 
Handling, Directory-Operationen oder 
den Umgang mit Druckern bereitstellen. 
Dies ist auch nicht nötig, da solche Funk- 
tionen schon zum Standardumfang von 
SPC-Modula gehören. 


Listengenerator 


In der C-Version von AdiProg sind GEM- 
Routinen vorhanden, die eine Program- 
mierung einer Benutzeroberfläche ähn- 
lich dem original Abfrageprogramm 
EXEC ermöglichen (in der Library GEM- 
PROG). AAV hat diesen dort sehr um- 
fangreichen Teil weggelassen und 
stattdessen zwei Module implementiert, 
die basierend auf dem SPC-Fenstersy- 
stem SSWiS Bildschirmdarstellungen 
unterstützen. 


Der Listengenerator verwaltet die Ausga- 
be von Listen in einem Textfenster. Die 
Bestandteile der Listen sind natürlich die 
aus der Datenbank gewonnenen Felder. 
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telt werden. Was 
mit diesen Feldern 
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sprechend der Kon- 
zeption von SSWIS 
erhält jedes Listen- 
fenster eine eigene 
Menüzeile, die wiederum mit Funktionen 
aus der ListLib erstellt wird. 


Bild 1 zeigt drei mit dem Listengenerator 
programmierte Listenfenster, die Daten 
einer Beispieldatenbank enthalten. Das 
oberste Fenster enthält die Namen der 
Dateien ineinerhorizontalen Liste, wobei 
das Anklicken einer Datei ein neues Li- 
stenfenster für den Inhalt der Datei öffnet. 
Im Hintergrund sehen Sie zwei solche 
Fenster. 


Maskengenerator 


Wie oben genannt, befindet sich in dem 
Modul Utilities eine Routine, die einen 
Datensatz nach der Maskendefinition in 
ein Feld aus Zeichenketten umwandeln 
kann. Jedoch geht diese Routine von ei- 
nem herkömmlichen Textbildschirm aus. 
AAV hat einen Maskengenerator imple- 
mentiert, der mit dem Fenstersystem 
SSWiS zusammenarbeitet und erheblich 
mehr GEM-Elemente erlaubt (Bild 2). 


Zunächst müssen dazu die mit /NIT er- 
stellten Masken mit dem Modul Read- 
Decl eingelesen und danach mit Mask- 
Heap Speicherplatz für die Masken ange- 
fordert werden. Zusätzlich wird man 








Bild 2: Eine Bildschirmmaske in einem SSWiS-Fenster 


die Maskenbeschreibung aus ReadDecl 
umbauen müssen, da der Maskengenera- 
tor andere Datenstrukturen verwendet. 
Hier wäre vielleicht ein kleines Set an 
Konvertierungsroutinen angebracht. 


Das Programm baut dann eine Maske 
durch mehrfachen Aufruf von DefElem 
auf. Für jeden Maskenbestandteil muß 
eine Beschreibung übergeben werden, in 
der z.B. die Bildschirmposition und der 
Text von Buttons steht. Mögliche Ele- 
menttypen sind Title für Texte, Burton für 
GEM-Knöpfe, Content für die von GEM- 
Dialogen her bekannten edierbaren Fel- 
der und schließlich UserDeffür selbstpro- 
grammierte Objekttypen. 


Für alle Elemente lassen sich Eigenschaf- 
ten setzen, die auch vom GEM-Dialog- 
manager her bekannt sind. Teile können 
wählbar oder z.B. ausgeschaltet sein, 
Texte können formatiert werden, und 
Buttons sind mit verschieden starker 
Umrandung darstellbar. Bei edierbaren 
Feldern wird ein Maskenstring festgelegt, 
der bestimmt, welche Zeichen an welcher 
Stelle zur Eingabe erlaubt sind. 


Über die Einführung von programmier- 
baren Objekten ist es z.B. auch möglich, 


Grafiken darzustellen. Im Bild 3 (aus 
einem Beispielprogramm) ist dies natür- 
lich eine Spielerei, die Darstellung eines 
gescannten Formulars im Hintergrund 
macht eine Maske allerdings spürbar 
anwenderfreundlicher. 


Eine Reihe von Service-Funktionen er- 
laubt das Verändern der Attribute von 
Elementen, so z.B. das Setzen von Strings 
oder das Einfügen von einzelnen Zeichen 
in ein edierbares Maskenelement. 


Um die Maske nun aktiv zu machen, wird 
ein SSWiS-Fenster eröffnet und darin die 
Maske dargestellt. Benutzereingaben 
werden dann mit der Routine SSWis$. 
PollEvents abgefragt und automatisch 
vom Fenstersystem an den für jede Maske 
zu programmierenden Eventhandler wei- 
tergeleitet. Dieser erhält dann z.B. die 
Mitteilung, daß eine Cursor-Taste ge- 
drückt wurde, und muß dann mit der 
Routine MoveCursor des Maskenmana- 
gers reagieren. Auch die Redraw-Events 
werden von SSWiS geliefert und können 
mit weiteren Service-Routinen in Funk- 
tionen von MaskManager befriedigt wer- 
den. 


Der MaskManager ist also eine Samm- 
lung von Funktionen, die die Maskenpro- 
grammierung unterstützen. Vergleicht 
man die Masken mit den Standard-GEM- 
Formularen, so liegen seine Fähigkeiten 
etwa auf der Ebene des Form-Managers 
von GEM. Zur Verarbeitung von Benut- 
zereingaben muß der Programmierer die 
SSWiS-Ebene benutzen und wird dabei 
sinnvoll von einigen Service-Routinen 
unterstützt. Für eine konkrete Anwen- 
dung wird man sich noch einige kleinere 
Funktionen hinzuprogrammieren müssen 
oder Prozedurrahmen aus den mitgelie- 
ferten Beispielprogrammen übernehmen. 


xAllerdings bietet das Angebot aus Mask- 
Manager natürlich auch eine große Flexi- 
bilität: Während des Ausfüllens einer 
Maske könnten Felder aus der Datenbank 
nachgeladen werden. Bei einem Rech- 
nungsformular könnte nach dem Ausfül- 
len des Namensfelds in der Datenbank 
nachgeschaut werden, ob die Adresse 
vielleicht schon vollständig in einer Kun- 
dendatei vorliegt. Wäre dies nicht der 
Fall, müßte der Benutzer weiter ausfüllen. 
Das Programm könnte aber sofort dann, 
wenn alle Adressenfelder ausgefüllt sind, 
die Kundendatei erweitern. Läge die 
Adresse vor, könnten die entsprechenden 
Felder schon während der Datenerfas- 
sung in der Maske ergänzt werden. 
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EasyPROG ist 
eine Erweite- 
rung bzw. Ver- 
einfachung der 
ADI-Schnitt- 
stelle. Die dor- 
tigen Routinen 
arbeiten mit 
Puffern, die im 
Speicher dyna- 
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misch angelegt 
werden müs- 
sen. Zum Bear- 
beiten eines 
Datenfeldes muß das Programm 
dessen Adresse im Puffer mit 
diversen Funktionen ermitteln. 
Weiterhin sind einige Parameter 
- z.B. die Dateinummer - bei 
jedem Funktionsaufruf zu über- 
geben, obwohlssieineinerrealen 
Anwendung nicht ständig wech- 
seln werden. 


EasyPROG liegt nun in der Mo- 
dulhierarchie über der ADI- 
Schnittstelle und bietet deren 








Bild 3: Eine Maske mit Grafik 





VAR name, vorname, strasse, 
Ort:ARRAY[0..22] OF CHAR; 
i, nummer, plz : INTEGER; 


IF InitBase(‘'E:\spc\user\’,’adr’) THEN 
ConnectText (name,1); 
ConnectText (vorname, 2); 
ConnectText (strasse, 3); 
ConnectInt (nummer, 4); 
ConnectInt (plz,5); 
ConnectText (ort, 6); 
In(1); 

Reset; 

UseKey (1); 
SetTextKey(‘?’); 
IF Find() THEN 


Dienste in komfortablerer Wei- 
se an. Das zweite der genannten 
Probleme umgeht EasyPROG 
dadurch, daß nur einmal z.B. die 
Datei per In(<Dateinummer>) 
auszuwählen ist, die dann bei 





REPEAT 

Access; 

WriteString (name); WriteLn; 
WriteString(vorname); WriteLln; 
WriteString (strasse); WriteLn; 
WriteInt (nummer, 5); Writeln; 
WriteInt (plz,5); Writeln; 
WriteString (ort); WriteLn; 


UNTIL -Look (); 








jedem Funktionsaufruf automa- END; 
tisch an die ADI-Schnittstelle ag 
weitergeleitet wird. 

Listing 1 


Um das umständliche Hantieren 

mit dem Puffer zu vermeiden, 

gibtes die Connect...-Routinen. Mitihnen 
kann ein Feld an eine Modula-Variable 
gebunden werden. Nach ConnectInt- 
(anzahl,l) gilt das erste Feld eines Daten- 
satzes in der aktuellen Datei als an die 
INTEGER-Variable anzahl gebunden. 
Beim Einlesen eines Feldes mit Access 
kopiert EasyPROG automatisch den Puf- 
ferinhalt in die Variable, mit der dann 
weitergearbeitet werden kann. 


Listing 1 zeigt einen Programmaus- 
schnitt, in dem mit EasyPROG alle Da- 
tenfelder der Datenbank adr in der Datei 
l ausgegeben werden. Vorteil ist, daß das 
Speichermanagement für den Puffer ent- 
fällt und zudem das Anwendungspro- 
gramm weniger mit Zeigervariablen 
umgehen muß. Insgesamt also ein Hilfs- 
modul, das die Arbeit deutlich verein- 
facht und schließlich auch sicherer macht. 


WPProg 


Um die Verbindung zwischen Datenbank 
und Textverarbeitung zu ermöglichen, 
stellt SPC-AdiProg eine Schnittstelle zu 
Wordplus in dem Modul WPProg bereit. 
Es läßt sich übrigens auch unabhängig 
von den ADIMENS-Routinen benutzen. 
Vielleicht sollte AAV dieses Modul auch 
einzeln anbieten. 


Sechs Module bieten auf verschiedenen 
Ebenen ihre Dienste an. WPCode enthält 
die diversen Typ-Definitionen - z.B. für 
Formatzeilen - und Grundfunktionen, um 
zwischen diesen Typen und der Word- 
plus-Darstellung in ASCII-Zeilen zu 
wandeln. 


WPParam stellt Routinen zum Setzen der 
Parameter eines Wordplus-Dokuments 
bereit, also Dinge wie Seitenlänge, Fuß- 
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#Anrede# 


#Name# #Straße# 


#Ort# 


RECHNUNG 


Seriennummer: #Serie# 


#Anrede# 


wir berechnen Ihnen 





Bild 4: Eine Vorlage für Serienbriefe für WPMail 


notenlinie oder die Lineallänge. Die 
Routinen erhalten als Parameter einen zu 
ändernden Record vom Typ WPFormat, 
in dem das Dokumentenformat gehalten 
wird, und überprüfen die Korrektheit der 
neuen Werte. 


WPPrint erlaubt die Verarbeitung von 
Wordplus-Dokumenten aufdem Massen- 
speicher. Hier finden sich die Routinen 
zum Lesen und Schreiben einzelner Zei- 
len aus und in eine Datei. Es können bei 
der Ausgabe alle Wordplus-Bestandteile 
wie Seitenumbrüche oder Fußnoten er- 
zeugt werden. Auch die verschiedenen 
Schriftarten lassen sich verwenden. Für 
das Programm werden alle Textzeilen als 
ARRAY OF CHAR behandelt; die ver- 
schiedenen Codes - z.B. für Fettschrift - 
hängen entsprechende Funktionen an. 
Übrigens lassen sich auch Bilder verar- 
beiten. 


Die verschiedenen Formatierungsrouti- 
nen für Textzeilen sind in WPFStr zusam- 
mengefaßt. Hier werden die Zeichenfel- 
der z.B. links- oder rechtsbündig forma- 
tiertund in einem weiteren String zurück- 
geliefert. Das Formatieren berücksichtigt 
natürlich die Wordplus-Steuerzeichen. 


WPConv stellt Konvertierungsroutinen 
zwischen Wordplus-Dokumenten auf 
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Disk bereit. Hier kann z.B. 
zwischen ASCII- und 
Wordplus oder zwischen 
der Wordplus-Version 2 
und 3 gewandelt werden. 
Auch kann WPConv z.B. 
automatisch ein Inhalts- 
verzeichnis erstellen. 


Das letzte Modul MPMail 
erlaubt es schließlich, Se- 
rienbriefe zu erstellen. 
Hier wird automatisch ein 
Wordplus-Dokument, das 
Platzhalter enthält (Bei- 
spiel in Bild 4), mit einer 
Ersetzungstabelle ge- 
mischt und schließlich der 
neue Text auf Disk ge- 
schrieben. Bei der Arbeit 
mit AdiProg extrahiert 
man dann die Ersetzungs- 
texte natürlich jeweils aus 
der Datenbank. 


00? - Lizenz 
zum Verkaufen 


Als Vertreiber von mit 
AdiProg hergestellter Software hat man 
aufgrund der Lizenzbedingungen be- 
stimmte Verpflichtungen gegenüber dem 
eigentlichen Hersteller ADI Software. 
Verlangt werden Belegexemplare, ein 
Hinweis auf ADI Software im Programm, 
und schließlich darf das Produkt nicht mit 
AdiProg oder ADIMENS konkurrieren. 
Es sind zwei Vertriebsformen gestattet, 
und zwar entweder ohne /NIT und 
REORG, aber mit dem Hinweis, daß diese 
nachträglich erworben werden müssen, 
oder als Komplettpaket mit einer anteilig 
berechneten Lizenz durch ADI Software. 


Die Höhe der Lizenz muß jeweils indivi- 
duell vereinbart werden, von einem Fest- 
preis, wie bei früheren AdiProg-Versio- 
nen, ist ADI Software inzwischen abge- 
rückt. 


Handbuch 


Das Handbuch umfaßt fast 320 Seiten und 
wird in einem Ringordner geliefert. Der 
Update-Service von Advanced Applica- 
tions für das Modula-System arbeitet sehr 
konsequent auch mit Handbuchergänzun- 
gen; die Ringordner-Lösung hat sich 
dabei sehr gut bewährt. 


Das Manual besteht aus vier Teilen. Im 
ersten wird die Programmierung mit der 


Schnittstelle und den zusätzlichen Modu- 
len ineiner Art Tutorial sehrübersichtlich 
erläutert. Die abgedruckten Programm- 
beispiele geben einen Rahmen für wie- 
derkehrende Aufgaben vor. 


Der Referenzteil geht die einzelnen 
Module Funktion für Funktion durch. Am 
Seitenrand ist jeweils der Prozedurname 
aufgeführt, so daß ein Nachschlagen er- 
leichtert wird. Die verwendeten, oftmals 
recht umfangreichen Datentypen finden 
sich in der Nähe der beschriebenen Funk- 
tion, so daß großes Blättern erspart bleibt. 
Erfreulich auch ein System von Querver- 
weisen auf mit der dargestellten zusam- 
menhängende Funktionen. 


Die Beschreibung der Programme /NIT 
und REORG wurde direkt aus dem Adi- 
Prog-C-Handbuch übernommen. Viel- 
leicht hätten auch noch die einleitenden 
Kapitel über das Konzept der ADI-Daten- 
bank aus dem Original übernommen 
werden sollen. Die bei Modula übliche 
Listung aller Definitionsmodule bildet 
den Abschluß des Handbuchs, das zwar 
noch ein Register verdient hätte, aber 
insgesamt gelungen ist. 


Als Ergänzung zum Handbuch sind auch 
die mitgelieferten Beispielprogramme zu 
sehen. Ein Programm, ExecNeu, zeigt in 
der Praxis, wie man mit einer Datenbank 
beliebigen Formats umgeht. In einer 
konkreten Anwendung wird man wahr- 
scheinlich Teile daraus in sein eigenes 
Programm übernehmen. 


Fazit 


SPC-AdiProg ist eine saubere Implemen- 
tierung der ADIMENS-Schnittstelle. Sie 
fügt sich sehr gut in das Modula-Entwick- 
lungspaket ein und enthält sinnvolle und 
leistungsfähige Erweiterungen. Die 
Funktionssammlung ist hervorragend 
strukturiert und eine konsequente Erwei- 
terung des Produktangebots für SPC- 
Modula. SPC-AdiProg kostet DM 249,- 
und kann bezogen werden bei 


Advanced Applications Viezena GmbH 
Sperlingweg 19 

7500 Karlsruhe 31 

Tel.: 0721/700912 


Unser ProFile-System - Ihr Vorteil. 


Unser ProFile-System bietet ihnen die Zuverlässigkeit und die Bis zu 2 Jahre Garantie gibt die notwendige erheit. Zu 
Flexibilität, die Sie als Atari-User heute brauchen. Spitzenent- unserer Produktpalette gehören ebenso wiederbeschreibbare 
wickler waren an der Arbeit -— das Ergebnis optische Spei und _Monochrome- 


’ z Idschirme sowie das ProFile R44 - ein 
p “tar -einesichere |... “= \ ö 
E " Wechselplatten-System - mit dem Sie 44 MB 
Entscheidung für 


die Zukunft nell zur Hand haben. 


sind Geräte mit den besten Eigenschaften 

Festplatten von 20 bis 180 MB icher- 
kapazität für eine schnelle - und leise - Verar- 
beitung und Verwaltung von Daten. Die DC- 
Serie ist zusätzlich mit einem integrierten 64- 
KB-Cachespeicher ausgerüstet, der die Zugriffszeit um bis zu 50 % Informationen zu protar-Produkten erhalten Sie bei Ihrem 
verringert. qualifizierten Fachhändler. 

protar Elektronik GmbH kam 7:D-1000 B \ 30 - 251 30 65 : Telefax 030 - 251 
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TeX 


für den 


Alltag 


Das Satzsystem TeX zur Produktion 
erstklassiger Texte dürfte unseren 
Lesern ja mittlerweile zum Begriff 
geworden sein. Hier geht es nun um 
eine Implementierung dieses Systems 
auf dem ATARI ST, wie sie in dieser 
Vollständigkeit und benutzerfreundli- 
chen Ausführung bisher noch nie gebo- 
ten wurde. Es handelt sich um die unter 
dem Namen STTeX angebotene Imple- 
mentierung der TH Darmstadt, die von 
der Firma “Detig Schrod TeXsys” ver- 
trieben wird. 


Das Satzsystem TeX (sprich: tech) wan- 
delt mit Steueranweisungen versehene 
Texte in Druckausgabe beliebig hoher 
Qualität um. Der Text wird gemäß den 
Steueranweisungen und dem vorgewähl- 
ten Format aufbereitet, also gesetzt, das 
Ergebnis dieses Arbeitsgangs wird dann 
mittels der verfügbaren Zeichensätze auf 
das gewünschte Ausgabegerät in der für 
dieses Gerät maximal möglichen Druck- 
qualität ausgegeben. Im einfachsten Fall 
ist das Ausgabegerät der Bildschirm, 
daneben findet man im privaten Bereich 
häufig einen Star NL-10 oder einen ande- 
ren Epson-kompatiblen 9-Nadeldrucker. 
Wer etwas mehr anlegen kann, ist mit 
einem 24-Nadeldrucker gut beraten. Hier 
erreicht man 180 mal 180 dpi, bei versetz- 
tem Drucken bei manchen Geräten sogar 
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Bild 1: Die Shell mit allen Pull-Down-Menüs. Am unteren Bildschirmrand ist immer die Belegung der 


Funktionstasten zu sehen. 


bis zu 360 mal 360 dpi. In kleineren Se- 
kretariaten kann die mit diesen Druckern 
erreichbare Qualität und Geschwindig- 
keit oft ausreichen. Im professionellen 
Einsatz haben sich Laserdrucker, hier 
insbesondere der HP-Laserjet und Kom- 
patible, mit einer Auflösung von 300 mal 
300 dpi gut bewährt. Für Veröffentli- 
chungen höchster Qualität schließlich 
besteht die Möglichkeit der Ausgabe über 
eine Linotype, die nun wirklich keine 
Wünsche mehr offen läßt. 


Ohne Fleiß kein Preis 


Ein solches Super-System stellt aber auch 
Super-Anforderungen: an die Maschine, 
auf der ein solches Programm ablaufen 
soll, aber auch an den Benutzer, der fast 
schon eine Programmiersprache zu erler- 
nen hat, bis er endlich durch einen Aus- 
druck in der gewünschten Form belohnt 
wird. Schon mehrfach hat sich die CT- 
Computer dieses Themas angenommen: 
In der ST 7/87 verglichen wir die beiden 
TeX-Implementierungen der Firmen 
TooLs und Kettler, in der ST 5/89 wurde 
ein kleiner Einblick in das Arbeiten mit 
TeX gegeben. An dieser Stelle allerdings 
gleich ein kleines Dementi: Die im zuletzt 
genannten Artikel vorgeschlagene Ab- 
trennung des TeX-Logos durch das Son- 
derzeichen “-” sollte man natürlich tun- 
lichst vermeiden. Dadurch wird nämlich 


nicht nur ein Zwischenraum erzwungen, 
sondern auch gleichzeitig ein Zeilenum- 
bruch unterbunden. Richtig wäre die 
Abtrennung durch einen Backslash “ \” 
mit nachgestellter Leerstelle oder durch 
eine leere Gruppe “| }”, ebenfalls gefolgt 
von einer Leerstelle. Dies wird übrigens 
im TeXbook [1] auf den Seiten 8 und 19 
ausführlich erläutert. Wie man sieht, ist 
die Sache doch nicht ganz so einfach. 


Wenn nun schon der Umgang mit TeX an 
sich nicht ganz trivial ist, so sollte doch 
wenigstens die Bedienung der hierfür 
erforderlichen Programme einfach von 
der Hand gehen, damit dem Anwender 
der Kopf frei bleibt für das eigentliche 
Ziel: die Dressur von TeX. Dieser Anfor- 
derung wird das hier getestete Programm- 
paket in so vollem Umfang gerecht, daß 
man es mit gutem Gewissen für den Ein- 
satz in ganz normalen Sekretariaten emp- 
fehlen kann, in denen die Schreibkräfte 
zwar eine gewisse Bereitschaft zum Er- 
lernen des Umgangs mit dem Computer 
und zum Einarbeiten in TeX mitbringen, 
ohne jedoch schon Computerexperten zu 
sein. 


Lieferumfang 


Im Prinzip besteht das TeX-System aus 
zwei voneinander unabhängigen Teilen, 
die man auch einzeln bestellen kann. Da 


ist zunächst einmal das Grundpaket mit 
dem eigentlichen TeX-Programm, einer 
umfangreichen Sammlung von Makro- 
Paketen, INITeX zur Generierung von 
Formatdateien und BibTeX zum Erstel- 
len und Verwalten von Literaturlisten. 
Dazu gehört ein Preview, das ist ein Pro- 
gramm zur Ausgabe der von TeX erzeug- 
ten DVI-Dateien auf den Bildschirm. 
Vervollständigt wird das Ganze durch 
einen Druckertreiber, der die DVI-Datei- 
en auf dem gewünschten Drucker zu 
Papier bringt. In der Regel wird man das 
Gesamtpaket mit TeX/Preview und dem 
Druckertreiber für das vorhandene Aus- 
gabegerät erwerben. Bestandteil des 
Grundpakets ist weiter eine einfach zu 
bedienende graphische Benutzeroberflä- 
che, heute heißt so etwas auch Shell, mit 
der die wichtigsten Programme des TeX- 
Systems in einfachster Weise per Tasten- 
druck oder Mausklick, es ist beides mög- 
lich, bedient werden. 


Das Grundpaket bekommt man auf sechs 
Disketten; davon sind drei für das Pre- 
view-Programm namens DVIGRA erfor- 
derlich, die fast ausschließlich für Zei- 
chensätze benötigt werden. Der Platzbe- 
darf für die Druckertreiber wird natürlich 
ebenfalls durch die Zeichensätze be- 
stimmt. Wir testeten den DVIDOT mit 
einem Star NL-10 (6 Disketten) und den 
Lasertreiber DVIHP für den HP-Laserjet 
(9 Disketten). 


Dokumentation 


Selbst die allerbeste Software ist ohne 
gute Dokumentation nicht viel wert. Man 
kann sich nur wundern, wie oft und mit 
welcher Penetranz gegen diese eiserne 
Regel selbst von ansonsten exzellenten 
Programmierern verstoßen wird. Das 
vorliegende Paket ist ein äußerst gelunge- 
nes Beispiel dafür, wie gute Dokumenta- 
tion aussehen kann. Und hier reden wir 
noch nicht einmal von der den umfangrei- 
chen Makro-Paketen beigegebenen Ori- 
ginaldokumentationen, sondern von der 
reinen Programmbeschreibung des vor- 
liegenden Pakets. Diese Dokumentation 
setzt sich aus vier Handbüchern zusam- 
men. Da gibt es zunächst unter dem Titel 
“STTeX” (25 Seiten) eine Beschreibung 
des Grundpakets, in der nach einer allge- 
meinen und knappen Einführung in die 
Arbeitsweise mit TeX ausführlich die 
Installation des Gesamtpakets auf den 
verschiedenen Gerätekonfigurationen 
erläutert wird. Ebenso wird hier der 
Umgang mit der Shell und diversen Hilfs- 
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programmen erkärt.Weiter findet man 
Tips, wie bei Platzproblemen vorzugehen 
ist. Teil 2 heißt “LaTeX auf dem ATARI 
ST” und enthält auf 13 Seiten den “local 
guide” für dieses Makro-Paket. Neben 
anderem gibt es hier knappe Hinweise zu 
den einzelnen vordefinierten Styles. Eine 
umfangreiche Liste mit Ergänzungen und 
Korrekturen zum LaTeX-Buch von Les- 
lie Lamport [3] ist übrigens auf Diskette 
mitgegeben. Der dritte Teil (14 Seiten) 
heißt “TeX-Preview für ATARI ST Sy- 
steme” und erläutert die Handhabung des 
Bildschirmtreibers DVIGRA. In einem 
Anhang wird auf die Ausgabe von Bit- 
map-Graphiken eingegangen. Teil 4 (16 
bis 18 Seiten) beschreibt den Umgang mit 
dem jeweiligen Druckertreiber. Hier wird 
unter anderem die separate Installation 
des Druckertreibers erklärt und nochmals 
ausführlich auf die Ausgabe von Graphi- 
ken eingegangen. 


Installation 


Bei der Installation, wie auch bei allen 
anderen Arbeitsschritten, erhält man zu- 
verlässige und ausführliche Unterstüt- 
zung durch die eben beschriebene Doku- 
mentation. Schon bei einem einfachen 9- 
Nadeldrucker hat man es nach dem Obi- 
gen bereits mit 12 Disketten zu tun. Diese 
enthalten nun nicht einfach irgendwelche 
einzelne Dateien, sondern oft mit dem 
bekannten ARC-System gepackte Archi- 
ve, um Platz zu sparen. Somit liegt es auf 
der Hand, daß das Einrichten eines ge- 
brauchsfertigen Systems eine nichttrivia- 
le Angelegenheit ist. Weiter dürfte klar 
sein, daß man miteinem reinen Disketten- 
system nicht weit kommt. Eine Festplatte 
ist für menschenwürdiges Arbeiten mit 
TeX unbedingte Voraussetzung.Mit eini- 
ger Sachkenntnis und erheblicher Selbst- 
beschränkung könnte man natürlich zur 
Not noch mit zwei Diskettenlaufwerken 
auskommen, die Anleitung zur Installa- 
tion beschreibt nicht nur dies, sondern in 
geradezu rührender Gutmütigkeit auch 
noch die Installation auf einem System 
mit nur einem (!) Laufwerk. Ein solches 
Unterfangen ist jedoch nur Fanatikern zu 
empfehlen, die damit ins Guinness-Buch 
der Rekorde kommen wollen nach dem 
Motto: “Wer hält es am längsten mit TeX 
ohne Festplatte aus?” Der Betrieb mit 
Disketten ist somit nur eine Notlösung, 
auf die wir hier nicht weiter eingehen 
wollen. 


TeX soll also auf einer Festplatte instal- 
liert werden. Diese ist in aller Regel zuvor 


gründlich aufzuräumen, damit genügend 
Platz ist. Eines wird der potentielle TeX- 
Benutzer nämlich schnell merken: TeX 
ist ein Speicherfresser, es emuliert sozu- 
sagen das Krümelmonster auf dem ATA- 
RIST. Der Appetit erstreckt sich sowohl 
auf Haupt- als auch auf Plattenspeicher. 
Dies ist unter anderem der Grund, wes- 
halb mit TeX auf einem IBM-PC nicht 
vernünftig zu arbeiten ist: Auf Maschinen 
mit weniger als einem Megabyte Haupt- 
speicher fristet TeX nur ein eher kümmer- 
liches Schattendasein. Die Anleitung 
spricht von 6 Megabyte Plattenspeicher- 
bedarf für STTeX, das umfaßt das TeX- 
Paket mit allen Makro-Paketen, der Do- 
kumentation, allen Hilfsprogrammen und 
den Zeichensätzen des Bildschirm-Pre- 
views. Hinzu kommen noch einige Mega- 
byte für die Zeichensätze des Druckertrei- 
bers, für den Laserdrucker sind dies nicht 
ganz 6 Megabyte, der NL-10 ist mit etwa 
5 Megabyte zufrieden. Werden das TeX- 
System und der Druckertreiber gemein- 
sam installiert, so liegen die Zeichensätze 
für Bildschirm und Drucker in einer 
gemeinsamen Partition. Hier ist zu über- 
legen, ob man nicht den Druckertreiber 
separat installiert und dann dessen Zei- 
chensätze in einereigenen Partition unter- 
bringt. 


Für jedes Gerät liegen sämtliche Zeichen- 
sätze einer Vergrößerungsstufe jeweils in 
einem Ordner. Die Ordner mit den einzel- 
nen Vergrößerungsstufen eines Ausgabe- 
geräts kommen dann nochmals in einen 
gemeinsamen Ordner, damit sind die 
Zeichensätze zu verschiedenen Geräten 
besser auseinanderzuhalten. Hält man 
jedoch die Zeichensätze unterschiedli- 
cher Geräte auch in unterschiedlichen 
Partitionen, so kann auf den letzten Ord- 
ner verzichtet werden, die Ordner mit den 
Vergrößerungsstufen liegen direkt im 
Hauptinhaltsverzeichnis der jeweiligen 
Partition und ermöglichen somit einen 
etwas schnelleren Zugriff. Da die Größe 
einer Partition der Größe der Zeichensät- 
ze ganz gut angepaßt werden kann, 
braucht man auch keine Probleme wegen 
mangelnder Übersicht mit den vielen 
Ordnern im Hauptinhaltsverzeichnis zu 
befürchten: Die Partition wird eben voll- 
ständig für Zeichensätze reserviert. Auf 
einer Festplatte mit 20 oder 30 Megabyte 
ist es ganz vernünftig, das TeX-System 
mit den Zeichensätzen für den Bildschirm 
auf einer und die Zeichensätze für den 
Drucker auf einer anderen Partition zu 
haben. Die zu bearbeitenden Texte wer- 
den dann am besten auf einer dritten Par- 


1111989 ST” 61 


tition gehalten, so daß man nicht verse- 
hentlich etwas von seiner Installation 
löscht oder überschreibt. Sind die Texte, 
die man in der Regel ja laufend ändert, auf 
diese Weise separiert, ist auch das Archi- 
vieren einfacher. Zieht man beispielswei- 
se regelmäßig ein Backup, dann braucht 
man sich nur noch um eine Partition zu 
kümmern, da auf den anderen ja nichts 
verändert wird. Bei der Installation wird 
der gesamte im Handbuch angegebene 
Platz zunächst auch tatsächlich benötigt, 
auf die Tricks für Bastler (und bitte nur für 
solche!) kommen wir später. 


Einfacher, als man denkt 


Obwohl die umfangreiche Diskettenliefe- 
rung zunächst natürlich Respekt einflößt, 
ist die Installation tatsächlich ein Kinder- 
spiel. Dies liegt daran, daß die Installation 
vollständig automatisiert ist und menüge- 
steuert abläuft. Der Anwender muß sich 
nur zuvor überlegen, auf welchen Parti- 
tionen das Grundsystem und die Zeichen- 
sätze installiert werden sollen und diese 
freiräumen oder gegebenenfalls auch 
vergrößern oder verkleinern. Anschlie- 
Bend ist die Startdiskette einzulegen und 
das Programm INSTALL.TOS aufzuru- 
fen. Von nun an hat man nur noch auf 
einfache Fragen zu antworten (Wollen 
Sie die Standard-Installation überneh- 
men? Auf welcher Partition soll TeX in- 
stalliert werden?) und Disketten zu wech- 
seln. Bei allen Fragen werden Antworten 
zu einer Standard-Installation vorgege- 
ben, die man einfach mit RETURN bestä- 
tigen kann. In der Regel wird man dies 
auch tun und allenfalls in der Wahl der 
Partitionen abweichen. Alle benötigten 
Ordner werden automatisch angelegt, 
zum Diskettenwechsel wird man unter 
Angabe des Namens der gewünschten 
Diskette jedesmal extra aufgefordert. 
Viel Zeit sollte man jedoch schon mitbrin- 
gen: Die Installation des Grundpakets 
dauert etwa eineinhalb Stunden, für den 
Druckertreiber muß man nochmal mit der 
gleichen Zeit rechnen. Da nach dem an- 
fänglichen Dialog aber nur noch Disket- 
ten zu wechseln sind, kann man getrost 
nebenbei Zeitung lesen. Im Hinblick dar- 
auf wäre es eine sinnvolle Verbesserung, 
die Aufforderung zum Diskettenwechsel 
mit einem akustischen Signal zu unter- 
stützen. 


Nach Abschluß der Installation findet 
man seine Festplatte wohlgefüllt. Den 
größten Platz beanspruchen natürlich die 
Zeichensätze, aber auch durch Anzahl 
und Umfang der mitgelieferten Makro- 
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Pakete und Hilfsprogramme wird man 
angenehm überrascht. 


Mother’s little helpers 


An Hilfsprogrammen gibt es zunächst 
INITeX, mit dessen Hilfe neue Makro- 
Pakete generiert und bestehende verän- 
dert werden können. Weiter gibt es BIB- 
TeX, das die komfortable Handhabung 
vonLiteraturzitaten inLaTeX unterstützt, 
einschließlich einer Sammlung bekannter 
und neuer Definitionen für die Form von 
Literaturlisten, selbstverständlich mit 
Originaldokumentation. Die vorliegende 
TeX-Implementierung versteht, wie sich 
das auf einem ATARI auch gehört, deut- 
sche Umlaute, hier müssen also nicht ir- 
gendwelche Backslashes und Gänsefüß- 
chen separat eingegeben werden, und 
einige auf dem ATARI verfügbare Son- 
derzeichen. Verwendet man diese in eige- 
nen Texten, dann ist es zunächst einmal 
aus mit der Übertragbarkeit von Quell- 
texten auf andere Systeme. Hier hilft je- 
doch das ebenfalls mitgelieferte 
TRANSFER.TTP, welches in TeX- 
Quelldateien diese Sonderzeichen in die 
zugehörigen Standard-Befehlsfolgen von 
TeX umwandelt. Daneben gibt es noch 
Hilfsprogramme zum Einbinden von 
Graphiken, diese werden weiter unten 
noch ausführlicher beschrieben. 


Das TeX-System alleine ist für einen 
normalen Anwender natürlich uninteres- 
sant. Erst eines der Makro-Pakete ermög- 
licht eine komfortable Nutzung dieses 
Systems. Mit Abstand am weitesten ver- 
breitet ist das Makro-Paket LaTeX von 
Leslie Lamport [3]. Dieses lebt von der 
Auswahl der jeweils verfügbaren Styles, 
das sind Dateien, in denen verschiedene 
Layouts vordefiniert sind. Dabei wird 
nicht nur das Aussehen einer Seite festge- 
legt, sondern beispielsweise auch die Art, 
wie Kapitel, Unterabschnitte und For- 
meln automatisch numeriert werden, die 
Trennregeln und vieles mehr. Die mitge- 
lieferte Styles-Sammlung zu LaTeX ist 
umfangreich, und zu jedem Style ist, 
soweit verfügbar, auch die Originaldoku- 
mentation (selbstverständlich als TeX- 
Quelltext auf Diskette!) dabei. Dies ist 
ungewöhnlich; normalerweise wird auf 
die einschlägige Literatur und auf Benut- 
zervereinigungen verwiesen. Neben 
LaTeX bekommt man noch das AMS- 
Paket [4] von Michael Spivak, ebenfalls 
wohldokumentiert. Für die Puristen gibt 
es noch die Minimalausstattung PLAIN, 
wie sie im TeXbook [1] beschrieben ist. 


Vorsicht, Falle! 


Wer noch nicht allzuviel mit seiner Fest- 
platte gearbeitet und auch noch nie von 
dem allseits beliebten 40-Ordner-Phäno- 


file=D:\NVR\ 

wait=ON 

editor=C:\GEM\TEMPUS.PRG 

editopt= 

tex=E:\TEX.TTP 

fmt=&lplaing 

texopt= 

TeXINPUTS=e:\latex;e:\initex 

TeXFONTS=E:\tfm 

TeXFORMATS=E: 

initex=E:\BIN\INITEX.TTP 

initexopt=-t50000 -s3000 -P36000 
-f19000 

show=E:\BIN\DVIGRA.PRG 

showopt=-X0 -Y-7 

GRA_FONT= 

DPF_FILES= 

print=E:\BIN\DVIDOT.TTP 

printopt=-y5mm 

PRT_FONT= 

bibtex=E:\BIN\BIBTEX.TTP 

BIBINPUTS=E:\bibtex 

F8= 

F9= 

command= 





Bild 2: Beispiel einer Parameterdatei 
TEXMEN.DEF 


men gehört hat, der wird nun wohl oder 
übel auf der Boot-Diskette zur Festplatte 
das Programm FOLDR100.PRG suchen 
müssen. Und das kommt so: Spätestens 
nach der Installation des TeX-Systems ist 
die im Betriebssystem vorgesehene maxi- 
male Anzahl von Ordnern, nämlich 40, 
mit Sicherheit überschritten. Was dann 
passiert, kann dem unbefangenen Benut- 
zer oftden Eindruck vermitteln, daß es auf 
seinem Rechner spukt. Neuerdings heißt 
das wohl nicht mehr Spuk, sondern Virus. 
Seltsame Dinge haben wir da schon beob- 
achtet. Im Desktop werden plötzlich nicht 
mehr alle Dateien angezeigt (nein, die 
nicht angezeigten Dateien sind nicht etwa 
verloren, oft erscheinen sie nach einem 
Reset sofort wieder); Dateien erscheinen 
zwar im Desktop, können aber partout 
nicht in der Auswahlbox beispielsweise 
eines Editors gefunden werden und vieles 
mehr. Beim TeX-System haben wir den 
Effekt erlebt, daß der Druckertreibernach 
kurzer Anlaufzeit seinen Dienst unter 
Hinterlassung zweier niedlicher Bömb- 
chen quittierte. Also: Nicht gleich auf 
TeX schimpfen, wenn solche sonderba- 
ren Effekte auftreten, sondern 
FOLDR 100.PRG starten, gegebenenfalls 
auch nach Umbenennen, wenn man den 
Puffer für die Ordner bereits erweitert hat. 
Das Handbuch zur Festplatte gibt hier 
genaue Auskunft. 
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Alles unter einem Hut 


Bedingt durch das mehrstufige Arbeiten, 
also Quelltext eingeben, Text setzen, 
gesetzten Text ausgeben, hat der Anwen- 
der es schon mit mehreren Programmen 
zu tun. Hinzu kommen dann noch Hilfs- 
programme, wie zum Beispiel BibTeX. 
Berücksichtigtman zudem, daß all diesen 
Programmen beim Aufruf auch noch 
Parameter mitgegeben werden können 
und im Normalfall auch mitgegeben wer- 
den müssen, dann gibtes schon eine ganze 
Menge zu tippen und zu klicken. Der 
übliche Ausweg aus einer solchen Situa- 
tion istnatürlich eine Shell, und der wurde 
auch hier beschritten. Da wir auf dem 
ATARI sind, hatte es natürlich eine gra- 
phische, sprich GEM-Shell zu sein. Die 
erste Generation solcher Shells ist uns 
allen noch in schlechter Erinnerung: Es 
gab nur Abroll-Menüs, und für die sim- 
pelsten Funktionen waren umfangreiche 
Mauseleien erforderlich. Das andere Ex- 
trem sind Shells, die ausschließlich durch 
Tasten gesteuert werden. Glücklicher- 
weise sind die Designer heute schon et- 
was schlauer, und auch die Leute von 
Detig Schrod TeXsys scheinen ihr Hand- 
werk zu verstehen: Ihre Shell, sie heißt 
TEXMEN.PRG, kann sowohl mit der 
Maus als auch mit Funktionstasten ge- 
steuert werden. Es sind sogar noch Funk- 
tionstasten frei, die man mit eigenen Pro- 
grammen belegen kann. Die Zuordnung 
von Funktionstasten zu den damit aufruf- 
baren Programmen wird überdies aufdem 
Bildschirm äußerst gekonnt angezeigt, 
wie in Bild 1 schön zu sehen ist. In einer 
separaten Datei, TEXMEN.MDF, kön- 
nen Parameter definiert werden, die den 
Programmen beim Aufruf durch die Shell 
mitgegeben werden. Bild 2 zeigt ein Bei- 
spiel einer solchen Datei. Auf diesem 
Wege definiert sich das System selbst 
Umgebungsvariablen. Dies sind zum 
Beispiel Suchpfade für Eingabedateien 
und Zeichensätze, der Name des von TeX 
verwendeten Makro-Pakets oder auch der 
Name und Ort der aufzurufenden Pro- 
gramme. Beim Aufruf eines solchen Pro- 
gramms kann wahlweise auch der aktuel- 
le Pfad umgesetzt werden, damit es etwa 
seine RSC-Datei findet. Diese Parameter 
kann man übrigens wahlweise mit einem 
Editor ändern oder in der Shell selbst über 
Abroll-Menüs verstellen. Selbstverständ- 
lich können Parameter in verschiedenen 
Dateien abgelegt und nach Belieben ein- 
gelesen werden. Überhaupt macht die 
ganze Shell einen sehr durchdachten und 
professionellen Eindruck. 
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Einbinden des Editors 


Ein Editor ist beidiesem Paket natürlich 
nicht dabei, dafür werden beim Installie- 
ren Name und Pfad des Lieblingseditors 
abgefragt und in TEXMEN.MDF auto- 
matisch eingefügt. Diese Werte lassen 
sich selbstverständlich jederzeit, wie 


TeX 


Das TeX trägt die Versionsbezeichnung 
2.92, die LaTeX-Makros haben 2.09 und 
wurden im Mai 1988 zuletzt verändert. 
Die deutschen Anpassungen sind eben- 
falls recht neu und scheinen den sich 
abzuzeichnenden Standard bereits zu 


Desk-Info Auswahl Optionen 


Te R*'* hatte man dort das System Is = Br + t, hier ist jedoch die Form 
Dr = Br+c miteiner Diagonalmatrix D sulösen. Mit den Beseichnungen 


gemäß (6.4) ist genauer 


D = diaf@u...,UmnB = D-U = 


0 


” 


Der Algorithmus von Seite ? 
daß nach jeder Spaltenoperation, an deren Ende ja der Speicherplatz von 
z£-ı den Wert up-ı-ı7%-ı enthält, der tatsächliche Wert z,_, berechnet 
wird durch zg-1/ug-ı 4-1. Es entsteht 


sen [=Ki)] 
In Iufünn 
dob=rn(-1) 
ses-us [i=KiR-1] 
Ir - ar-ıluR-1-1 


enddo 


0 


ist nun dahingehend su ergänzen, 


Startwertefür Column $weep 
an fertig 


Spalten in umgekehrter Reihenfolge 


Spaltenoperstion; SAXPY 
#+-ı fertig berechnet 





Wurde die Vorwärtselimination nach dem speicheroptimierten Algo- 


Bild 3: Bildschirmausgabe mit dem Preview in Originalgröße. 


oben beschrieben, ändern. Sehr gute Er- 
fahrungen haben wir mit Tempus? ge- 
macht, auch MicroEmacs ist für diesen 
Zweck gut geeignet. Für MicroEmacs 
gibtes übrigens von Anselm Lingnaueine 
spezielle Anpassung, die das Arbeiten mit 
LaTeX wirkungsvoll unterstützt. 


Nach dem Start der Shell wird beim Auf- 
ruf des ersten Programms der Name der 
Datei abgefragt, die bearbeitet werden 
soll. Der dann eingegebene Name wird 
dann auch für die anderen Programme 
verwendet, wobei die Shell die jeweils 
benötigte Endung, wie “TEX’ oder ‘DVT', 
selbst anpaßt. Natürlich kann ein einmal 
eingegebener Name, wieder über Abroll- 
Menü, nachträglich verändert werden. 
Besonders gelungen ist die Möglichkeit, 
für den Editor und TeX auf Wunsch unter- 
schiedliche Namen angeben zu können. 
Wer viel mit “\include’ und “\input’ ar- 
beitet, wird dies zu schätzen wissen. 


Gefallen hat auch die Belegung der Funk- 
tionstaste Fl, die zunächst den Editor, 
dann automatisch TeX und anschließend 
den Preview startet. So werden langwieri- 
ge Entwicklungszyklen etwas erträgli- 
cher. 


enthalten. Ganz aktuell ist jedenfalls die 
umfangreiche Datei mit deutschen Trenn- 
mustern von Norbert Schwarz. Die ist 
übrigens, wie sämtliche Makros auch, 
Public Domain. Es ist allerdings eine 
besondere Stärke dieser Implementie- 
rung, auch die kostenfrei verfügbaren 
Teile des TeX-Systems zu enthalten und 
dafürnicht auf weitere Quellen zu verwei- 
sen. Im Menü kann eingestellt werden. 
daß der TeX-Bildschirm nach Beendi- 
gung des Programms so lange stehen- 
bleibt, bis eine Taste gedrückt wird. So 
bekommt man einerseits auch noch alle 
Warnungen mit, andererseits wird dies 
auf die Dauer, besonders bei Verwendung 
der F1-Taste, doch recht lästig. 


Preview 


Das Preview-Programm DVIGRA.PRG 
ist eine besondere Stärke dieses Systems. 
Es ist einerseits so schnell, wie es auf dem 
ATARI eben geht, und da hat die MS- 
DOS-Welt gewaltig das Nachsehen, bie- 
tet andererseits aber auch noch eine ganze 
Menge Komfort. Hier ist ebenfalls wieder 


.die Bedienung mit Tasten möglich, dies 


geht schneller, und man braucht sich nicht 
mit. den Abroll-Menüs das Bild zu verdek- 
ken. Diese sind, etwa für Leute, die grund- 
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Bild 4: Die gleiche Seite wie in Bild 3 in vierfacher Verkleinerung 


sätzlich keine Bedienungsanleitung le- 
sen, noch zusätzlich vorhanden. Bild 3 
zeigt eine solche Bildschirmausgabe mit 
Menüleiste. 


So läßt sich etwa eine beliebige Seite, 
auch rückwärts, anspringen. Mit den 
Pfeiltasten wird der Bildschirmausschnitt 
bewegt, per Tastendruck kann eine Seite 
vor oder zurück geblättert werden. Weiter 
läßt sich per Mausklick der linke obere 
oder rechte untere Rand des anzuzeigen- 
den Ausschnitts definieren. 


Richtig begeistert waren wir von den 
Möglichkeiten des Verkleinerns: Auf 
Tastendruck kann die Ausgabe auf ein 
Viertel oder ein Neuntel verkleinert wer- 
den. Man kann dann zwar kaum noch 
etwas (bei einem Viertel) oder gar nichts 
mehr (bei einem Neuntel) entziffern, da- 
für paßt dann aber eine ganze Seite auf 
den Bildschirm und vermittelt so einen 
guten Eindruck vom Aufbau der Seite, 
wie in Bild 4 zu sehen ist. 


Ist eine Seite erst einmal im Speicher 
aufbereitet, und das geht durch einen 
ausgefeilten Pufferungs- und Darstel- 
lungsalgorithmus recht flott, verlaufen 
alle graphischen Transformationen dieser 
Seite mit der vom GEM gewohnten Ge- 
schwindigkeit, also das Verschieben des 
angezeigten Ausschnitts und die eben 
beschriebenen Möglichkeiten des Ver- 
kleinerns, sowie deren Umkehr. Ledig- 
lich bei der expliziten Neudefinition der 
Vergrößerungsstufe müssen die Zeichen- 
sätze neu geladen werden. Die Behand- 
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lung fehlender 
Zeichensätze wird 
weiter unten be- 
schrieben. 


Was man 
schwarz 
auf weiß 
besitzt... 


Die Druckertrei- 
ber haben sich in 
punkto Geschwin- 
digkeit wohl am 
Preview orientiert. 
Bei den 9-Nadlern 
mit ihrem winzi- 
gen, wenn über- 
haupt vorhande- 
nen, Pufferspei- 
cher ist da natür- 
lich nicht allzuviel 
herauszuholen. Bild 5 vermittelt einen 
Eindruck von der mit einem 9-Nadler er- 
reichbaren Qualität. Zwischen 10 und 15 
Minuten muß man in der Regel schon auf 
eine Seite warten. Bei einem Epson LQ 
geht die Sache schon etwas flotter, hier 
wird allerdings auch nur mit 180 mal 180 
dpi gearbeitet. Der Treiber für den Laser- 
drucker schlägt jedoch alles, was wir bis- 
her gesehen haben. Durch ein intelligen- 
tes Laden der Zeichen in den Drucker- 
speicher sind im Normalfall durchaus 5 
bis 6 Seiten pro Minute möglich. Nur bei 
der Ausgabe von Bitmap-Graphiken geht 
das Programm natürlich deutlich in die 
Knie, hier läßtes sich eben nicht so gut mit 
programmierbaren Zeichensätzen trick- 
sen. Getestet haben wir den Treiber mit 
einem original HP Laserjet Serie II und 
einem Sharp. Bild 6 zeigt einen solchen 
Ausdruck in einwandfreier Qualität. 


Graphik 


Als besonderer Knüller ermöglicht es 
diese TeX-Implementierung, Graphiken 
in den Text einzubinden. Damit ist nun 
nicht etwa die Möglichkeit gemeint, mit 
Hilfe der Picture-Umgebung einfachere 
Bilder zu erzeugen, die man in LaTex ja 
immer hat; vielmehr kann man die zuvor 
mit einem der üblichen Zeichenprogram- 
me erstellten Bitmuster-Graphiken ver- 
wenden. Voraussetzung ist allerdings, 
daß das Zeichenprogramm Bilder im 
Degas-Format abspeichern kann. Dies 
dürfte aber wohl von jedem halbwegs 
anständigen Programm zu erwarten sein; 
eines der geeignetsten ist sicher STAD, 


und hier kann man selbstverständlich das 
Speicherformat wählen. 


Ein im Degas-Format abgespeichertes 
Bild wird nun in einem separaten Arbeits- 
gang durch ein im Lieferumfang enthalte- 
nes Programm in ein spezielles TeX-For- 
mat umgewandelt. Dabei wird die Auflö- 
sung des gewünschten Zielgerätes ange- 
geben, und man kann gleich noch einige 
einfache Transformationen vornehmen, 
wie etwa die Verdoppelung der Pixel in 
horizontaler, vertikaler oder beide Rich- 
tungen. Durch einen einfachen TeX-Be- 
fehl, der als Parameter lediglich den 
Namen der Datei sowie die Höhe und 
Breite des für das Bild vorgesehenen 
Rahmens mitbekommt, wird eine solche 
Graphik nun in den Text eingefügt. Das 
Ausgabegerät gibt dann das Bild Pixel für 
Pixel in der dem Gerät eigenen Pixeldich- 
te aus. Dies führt natürlich dazu, daß ein 
und dasselbe Bild auf verschiedenen 
Ausgabemedien unterschiedlich groß 
wird. Ein beispielsweise für den Laser- 
drucker aufbereitetes Bild kann nun we- 
gen der unterschiedlichen Auflösung 
eben nicht auf dem Bildschirm angezeigt 
werden, in diesem Fall sieht man an Stelle 
des Bildes einfach einen leeren Rahmen 
und bekommt so wenigstens einen Ein- 
druck von der Seitenaufteilung. Obwohl 
bei dieser Gelegenheit im Grunde von 
dem strengen Prinzip der Geräteunabhän- 
gigkeit der von TeX erzeugten Ausgabe 
abgewichen wird, ist diese Möglichkeit 
natürlich ein gewaltiger Fortschritt und 
eben immer noch viel besser als gar keine 
Graphikausgabe. 


Literaturlisten... 


.. verarbeitet man unter LaTeX am besten 
mit Hilfe von BibTeX. Dieses Zusatzpro- 
gramm übernimmt die von LaTeX aufbe- 
reiteten Literaturzitate des Textes, sucht 
aus einer oder mehreren Literaturdateien 
die zugehörigen Verweise heraus und 
erstellt daraus eine Literaturliste, deren 
Form ebenfalls vorgegeben werden kann. 
BibTeX wird zu dem gerade bearbeiteten 
Text ebenfalls aus der Shell über eine 
Funktionstaste oder ein Abroll-Menü 
aufgerufen. Die Literaturdateien selbst 
werden wohl am besten mit einem Daten- 
bankprogramm erzeugt, wir haben hier 
mit Adimens beste Erfahrungen gemacht. 


INITeX 


Die bei TeX unvermeidlichen Makro- 
Pakete können recht umfangreich werden 
und entsprechend viel Zeit beim Pro- 
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Atari ST Software 


Auszug aus unserem Lieferprogramm 


African Raiders 89 
Afterburner 
Altered Beast 
Amazon 
American Icehockey 
Archipelagos 
Arkanoid 2 

Atax 

Baal 

Balance of Power 
Balance of Power 1990 
Ballistix 

Bard's Tale 1 
Batman 
Battlehawks 1942 
Battletech 

Beam Volley 
Beam 

Bio Challenge 
Bismarck 
Blasteroids 
Buffalo Bills W.W. 
Rodeo Games 
Buggy Boy 
California Games 
Captain Blood 
Carrier Command 
Castle Warrior 
Chariots of Wrath 
Chicago 30 
Chronoquest 
Circus Attractions 
Contlict Europe 
Gorruption 
Cosmic Pirate 





Dakar 89 
Dari 








Dark Castle 
DasR 

Demons Winter 
Dominator 


Double Dragon 

Dragon Ninja 
Dragonscape 
Dschungelbuch 
Dungeon Master 
Dungeonmaster Editor 
Elemental 

Eliminator 

Elite 

Emmanuelle 

Epyx (The Worlds Greatest) 
Espionage 

Expansion Kit 

für Football Manager 2 
Eye 

F-16 Combat Pilot 

F-16 Falcon 

F-16 Falcon Mission Disk 
F.O.F.T 

Final Assault 

Firezone 

Fish 

Flight 8. Disc 7 Florida 
Flight S. Disc 9 

Flight 8. Disc 11 Michigan 
Flight 5. Disc Japan 
Flight S. Western European 
Flight Sim. 2 

Football Manager 2 
Forgotten Worlds 
Fugger 

Galactic Conqueror 
Galdregons Domain 
Gary Linekers Hotshots 
Genius 

Giants Compilation 
Goldrush 

Hereos ofthe Lance 
Hostages 

TLudierus 

Incredible Shrinking Sphere 
Indiana Jones T. Last 
Cruscade 

International Karate Plus 
Iron Tracker 

Its a Kind of Magic 

Jagd auf Roter Oktober 
Jaws 

Joanne D'Arc 

Jet 

Jug 

Kaiser 

Kampf um die Krone 
Kennedy Approach 

Kick Off 

Kings Quest 3er Pack 
Kings Quest 4 

Kult 

Lancelot 

Leaderboard Par 3 
Leben und sterben lassen 
LedStrom 

Legend of Djel 

Legend oftheSword 
Leisure Suit Larry 
Leisure Suit Larry 2 
Leonardo 

Lizenz zum Töten 
Lombard RacRalley 
















Hardware auf Anfrage. 


51.90 


Manhunter Ny 
Manhunter San Fran. 
Marble Madness 
Mega Pack 

Menace 

Micky Mouse 
Microprose Soccer 
Millenium 2.2 
Motor Massacre 
Munsters 

Murder in Venice 
New Zealand Story 
Night Raider 

Off Shore Warrior 
Oil Imperium 
Operation Neptun 
Out Run 

Pacland 

Pacmania 

Personal Nightmare 
Peter Pan 

Phobia 

Pink Panther 
Pirates 

Police Quest 

Police Quest 2 
Populous 
Powerdrome 
Precious Metal 
President is Missing 
Psion Chess 

Purple Saturn Day 
Quest for Time Bird 
Questron 2 

R-Type 

Racing 

Red Heat 

Red Lightning 
Return to Genesis 
Rick Dangerous 
Ringside 
Roadblasters 
Roadwar 

Rockford 

Run the Gauntlet 
Running Man 
Rückkehr der Jedi Ritter 
RVF Honda 
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Sargon3 
Savage 
Shinobi 
Shuttle 2 
Silkworm 
Skweek 
Sky Chase 
Skyrider 

Slaygon Adventure 
Sleeping Gods Lie 
Sommer Olympiade 88 
Space Quest 1 

Space Quest 2 

Space Quest 3 
Spherical 

Spitting Image 
Stormtrooper 

Stos Compiler 

Stos Maestro 

Stos Sprites 

Stos the Game Creator 
Super Hang On 

Super Quintett 

Tank Attack (CDS) 
Technocop 

Teenage Queen 

Test Drive 

The Deep 

The Real Ghostbusters 
Thunderbirds 
hunderblade 

Tiger Road 
Timescanner 

Titan 

Tom und Jerry 
Tracksuit Manager 
Trash Heap 

Trivial Persuit 








Turbo Cup 

Ultima 4 

Universal Military Scenery 1 
Universal Military Simulator 
Vindicators 

Volleyball Simulator 

Wall Street Wizzard 
Wanted 

War Hawk 

War in Middle Earth 
Waterloo 

WecLe Mans 

Where time stood still 
Whirligig 

Wicked 

Winter Edition 

Winter Olympiad 88 
Xybots 

Yuppies Revenge 

Zak McKracken 


Irrtümer und Preisänderungen vorbehalten. Bestellungen schriftlich oder telefonisch. 


Reinhard Schuster Computer 

















69.90 
73.90 
57.90 
61.90 
57.90 
51.90 
58.90 
54.90 
5 
7: 
58.90 
58.90 
58.90 
87.90 
59.90 
53.90 
54.90 
© 
69.90 
41.90 
79.90 
58.90 


ayanyagya 
BRRDNDRME 
gesnuuage 
8560000085 


Obere Münsterstr. 33-35- Tel.0 23 05/3770 - 4620 Castrop-Rauxel 


Bei allen Bestellungen unbedingt Computertyp angeben. 
Geschäftszeiten: Montag — Freitag 9.00-13.00 und 14.00-18.00 Uhr, Samstag 9.00-13.00 Uhr. 


Versand nurper NN zuzügl. 8,- 


DM Versandkosten oder Vorkasse auf Postgiro-Kto.-Nr. 69422-460 
Postgiroamt Dortmund zuzüglich 6,00 DM. Ausland nur per Vorkasse zuzügl. 12,00 DM 


Neueste kplt. Softwareliste bei jeder Bestellung kostenlos oder gegen frankierten Rückumschlag 





66 ST 11/1989 















Archipelagos (Deutsch) 
Bard’s Tale (Deutsch) 
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grammstart in Anspruch nehmen. Dies 
wird gewöhnlich dadurch gelindert, daß 
eine gewisse Grundmenge von Makros 
zunächst geladen und bearbeitet und an- 
schließend in komprimierter Form abge- 
speichert wird, die danach beim erneuten 
Start schneller geladen werden kann. So 
entstehen die bekannten Formatdateien, 
auf dem ATARI durch den Typ FMT 
gekennzeichnet. Hierzu ist eine spezielle 
Version von TeX notwendig, die für den 
ATARI unter dem Namen INITeX mitge- 
liefert wird. Wegen des enormen Platzbe- 
darfs ist die Generierung von Formatda- 
teien auf einem ATARI mit nur einem 
Megabyte etwas schwierig, man muß mit 
den Größen für die einzelnen TeX-Spei- 
cherbereiche ein wenig herumrechnen. 
Auf jeden Fall wird jedoch das Arbeiten 
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kro-Datei bereits vorgefertigt und nach 
der Installation unter dem Namen 
LPLAIN.FMT vorhanden. Viele Anwen- 
der werden dadurch mit INITeX erst gar 
nicht in Berührung kommen. 


Reduktion 
des Platzbedarfs 


Die hier besprochene Implementierung 
ist einmalig in ihrer Vollständigkeit. Dies 
betrifft sowohl die Anzahl der mitgelie- 
ferten Zeichensätze als auch die Makro- 
Pakete und deren Dokumentation. Ein 
einzelner Anwender wird nun in der 
Regel nicht all dieses nutzen (es sei denn, 
er arbeitet als Tester für eine von Ihnen 
allen hochgeschätzte ST-Zeitschrift...) 


Wie man leicht erkennt, sind die Spaltenoperationen bei der Berech- 
nung der neuen Koeffizienten und rechten Seiten unabhängig voneinander 
und können daher parallel ausgeführt werden. Dies wird wieder durch den 
Zusatz parallel vor dem betreffenden do angezeigt. Im Hinblick auf die 


aj; an Stelle des Pivotelements «a 


spätere Verwendung ist es noch sünztig, jeweils im Hauptdiagonalelement 


dessen Kehrwert r zu speichern. 


Insgesamt ergibt sich so der folgen: e speicheroptimierte Algorithmus. 


Algorithmus: Vorwärtselimination nach Gauß 


do j=1(1)n-1 
ajj + 1/ajj 
ra; =itil)n] 
parallel do k=j+1(1)n 
Gik + Gik — GjkGij 
enddo 
parallel do k = 1(1)m 
Yir — Yin — Yikaij 
enddo 
enddo 


6.1.2 Rückwärtseinsetzen 


f=j+1Q)n] 


=j+1l)n] 


Eliminationsstufen 


Multiplikatoren £;; 
Restliche Spalten 
k-te Spalte; SAXPY 


Alle rechten Seiten 
k-te rechte Seite; SAXPY 


Grundlage hierfür ist der Column-Sweep-Algorithmus aus Abschnitt 5.1. 
Mit einer strikten oberen Dreiecksmatrix B = (b;,) und der Einheitsmatrix 





Bild 5: Probeseite mit dem STAR NL-10. Zum Korrekturlesen und für den persönlichen Gebrauch 


ausreichende Qualität. 


mit INITeX ebenfalls von der Shell, auch 
mit einer Funktionstaste, unterstützt; das 
Handbuch erläutert ausführlich die Vor- 
gehensweise bei einem Megabyte Spei- 
cher. Somit wird der Benutzer auch bei 
INITeX sicher geführt. Die meisten 
Anwender werden sicherlich mit LaTeX 
deutsche Texte bearbeiten wollen. Im 
Hinblick darauf ist die zugehörige Ma- 


und daher schnell auf den Gedanken 
kommen, die Festplatte von unnötigem 
Ballast zu befreien. Wird das System 
jedoch von mehreren Anwendern ge- 
nutzt, etwain einem Sekretariat, so istvon 
einer solchen Löschaktion dringend ab- 
zuraten. Nach Murphy werden genau der 
Zeichensatz und der Style benötigt, den 
man gestern, nachdem bisher noch nie 


jemand darauf zugegriffen hatte, in das 
Write-Only-Memory unbegrenzter Ka- 
pazität, das man gewöhnlich links unten 
auf dem Desktop findet, verschoben hat. 


Ein einzelner Benutzer sollte seinen Be- 
darf jedoch ganz gut abschätzen können; 
berücksichtigt er dann noch die Anforde- 
rungen von Dokumenten, die er von ande- 
ren übernimmt (Anleitungen!!!), dann 
kann er zur Tat schreiten. Zunächst wer- 
den nicht benötigte Makropakete ent- 
fernt. Danach druckt man die relevante 
Dokumentation und löscht die zugehöri- 
gen Dateien ebenfalls. Manch einer bear- 
beitet sowieso nur mit LaTeX deutsche 
Texte und verfügt auch nicht über die 
Sachkenntnis, um an den vorgefertigten 
Makropaketen etwas ändern zu können. 
Dann braucht er aber auch nicht INITeX: 
Weg damit! Die soerzielbare Ersparnisan 
Plattenplatz ist jedoch noch recht gering 
im Vergleich zu dem, was im nächsten 
Schritt anfällt. 


Jetzt geht’s erst 
richtig los 


Hierzu ist etwas mehr Aufwand erforder- 
lich. In längerem Probebetrieb mit typi- 
schen Dokumenten ist zunächst festzu- 
stellen, welche Zeichensätze in welchen 
Vergrößerungsstufen tatsächlich benötigt 
werden. Danach wird man zur Sicherheit 
alle Zeichensätze der Grundstufe des 
jeweiligen Geräts behalten, in den Ver- 
größerungsstufen jedoch alle nicht benö- 
tigten Zeichensätze löschen. Da die vor- 
liegende TeX-Implementierung eine für 
Standardanwendungen vollständige 
Sammlung von Zeichensätzen beinhaltet, 
ergibtssich aufdiese Weise eine drastische 
Einsparung. Im Alltagsbetrieb mit einem 
Star NL-10 konnte unser Testsystem ein- 
schließlich aller Zeichensätze für Bild- 
schirm und Drucker auf ganze 2.5 Mega- 
byte reduziert werden. 


Das Löschen von Dateien ist im übrigen 
völlig gefahrlos: Sie können ja bei Bedarf 
jederzeit von den Originaldisketten nach- 
geladen werden. Da die archivierten Da- 
teien mit dem weit verbreiteten ARC- 
System erstellt sind, kann man mit diesem 
PD-Programm (ist z.B. auf vielen PD- 
Disketten von MAXON als Zubehör 
dabei) deren Inhaltsverzeichnis ansehen 
und einzelne oder alle Dateien herausho- 
len. Zur Not (Was? Sie kennen den PD- 
Versand der ST-Computer noch nicht?) 
geht das Auspacken auch mit dem beim 
TeX-System mitgelieferten Hilfspro- 
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gramm EXTRACT.TTP, dessen Handha- 
bung das Handbuch selbstverständlich 
beschreibt. Benötigte Zeichensätze las- 
sen sich natürlich ebenso nachladen, und 
hier gibt es ein ganz besonderes Bonbon: 
Wird bei der Ausgabe ein Zeichensatz in 
der benötigten Vergrößerungsstufe nicht 
gefunden, wird er automatisch durch den 
in der Grundstufe ersetzt. Dieses wird 
dann in einer Datei mitprotokolliert, auf 
die nach Beendigung der Ausgabe in ei- 
nem solchen Fall besonders hingewiesen 
wird. So sieht man wenigstens den ge- 
wünschten Text, wenn auch einige Zei- 
chen nicht in der verlangten Größe er- 
scheinen, und man weiß genau, was ge- 
fehlt hat und nachzuladen ist. 


Die Grundstufe steht für die Bildschirm- 
ausgabe übrigens im Ordner PXL0500, 
für den Laserdrucker in PXL1500 und für 
die 9-Nadler in PXL1200. Alle diese 
Angaben sind in der Dokumentation 
schnell und zuverlässig zu finden. 


Dem Chaos keine 
Chance 


Das gesamte TeX-System haben wir unter 
KAOS getestet. Dies ist eine korrigierte 
Version des aktuellen Betriebssystems, 
die neben wenigen Erweiterungen, wie 
etwa einer verbesserten Auswahlbox, 
lediglich einige Korrekturen der 
schlimmsten Fehler enthält und nicht zu 
verwechseln ist mit dem von ATARI an 
ausgewählte Kunden bereits gelieferten 
TOS 1.4. Soistes etwa unter KAOS nicht 
mehr möglich, eine Datei zum Lesen zu 
eröffnen und diese dann zu beschreiben. 
Dabei stellt es sich heraus, daß sogar 
professionelle und weit verbreitete Stan- 
dardprodukte solche Schlampereien ent- 
halten, die auf Grund des fehlerhaften 
Betriebssystems bisher nur nicht aufge- 
fallen sind. Als Beispiele solcher Pro- 
gramme, die dann erst nach einem Patch 
wieder laufen, seien Adimens, Datamat 
und Beckertext genannt. Die Module von 
Adimens brechen gleich nach dem Laden 
ab, bei Datamat verschwindet der Cursor, 
und Beckertext druckt nicht mehr. Diese 
Liste läßt sich natürlich beliebig verlän- 
gern. Somit ist KAOS also ein harter Test 
für die Sorgfalt, mit der ein Programm 
implementiert wurde. Diesen Test hat 
STTeX mit Bravour bestanden. Während 
des gesamten Testbetriebs waren keine 
Unverträglichkeiten festzustellen. 
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6.1.2 Rückwärtseinsetzen 


Grundlage hierfür ist der Column-Sweep-Algorithmus aus Abschnitt 5.1. 
Mit einer strikten oberen Dreiecksmatrix B = (b;x) und der Einheitsmatrix 
I € R":” hatte man dort das System Ir = Bx+c, hier ist jedoch die Form 
Dz = Br+c mit einer Diagonalmatrix D zu lösen. Mit den Bezeichnungen 


gemäß (6.3) ist genauer 


D = diag(unı,.- 


Der Algorithmus von Seite ?? 


“Unn),B =D-U= 


Un 


0 


ist nun dahingehend zu ergänzen, 


daß nach jeder Spaltenoperation, an deren Ende ja der Speicherplatz von 
zx-ı den Wert ur-ı,.-ı2r-ı enthält, der tatsächliche Wert z;-ı berechnet 


wird durch zx-ı/ur-ı,k-ı. Es entsteht 


zu+-2z [i=1(l)n] 
In — Zn/Unn 
do k=n(-1)2 


TU Urte 


= 1(1)k-1] 
Ir-ı = Ze-ı/Ur-1,k-1 
enddo 


Startwerte für Column Sweep 

In fertig 

Spalten in umgekehrter Reihenfolge 
Spaltenoperation; SAXPY 

xx fertig berechnet 





Bild 6: Probeseite mit dem HP-Laserjet. Einwandfreie Qualität. 


Blow Up 


Ein besonderes Schmankerl gibt es vom 
Preview noch zu berichten: Dieses Pro- 
gramm läuft nicht nur auf dem Original- 
monitor SM124, sondern auch auf großen 
hochauflösenden Monitoren, die eine 
GEM-Einbindung haben. So wird zum 
Beispiel an der TH Darmstadt der 17"- 
Bildschirm von Matrix eingesetzt. 


Die Wertung, bitte! 


STTeX ist eine umfangreiche und in be- 
zug auf LaTeX und dessen Zeichensätze 
weitgehend vollständige Implementie- 
rung auf dem ST. Noch nicht vollständig 
verfügbar ist zum Beispiel SliTeX, mit 
dem man bequem Folien erzeugen kann, 
aber das bekommt man für den ST auch 
nirgendwo sonst. AMS-TeX ist ebenfalls 
im Lieferumfang enthalten, eine andere 
Bezugsquelle hierfür ist uns nicht be- 
kannt. Die Zeichensätze der verschiede- 
nen Vergrößerungsstufen reichen für alle 
Standardanwendungen aus. Die Doku- 
mentation ist umfangreich und auch gut 
gemacht. Im Grundpaket ist standardmä- 
Big das LaTeX-Buch von Lamport [3] 
enthalten, man kann aber auch darauf 
verzichten und bekommt dafür 57 Mark 
erstattet.Die Installation ist menügesteu- 


ertunddaherauch von Laien zuerledigen. 
Man sollte allerdings schon wissen, was 
eine Partition ist und wie der Editor heißt. 
Das System läuft stabil und muß nicht mit 
irgendwelchen Tricks erst überredet wer- 
den, seine Pflicht zu tun. Ist man erst 
einmal mit TeX vertraut, verläuft das 
Arbeiten problemloser als mit solchen 
“anwenderfreundlichen” Texteditoren 
wie Ist Wordplus oder Beckertext. 


Berücksichtigt man den Lieferumfang 
mit den vielen Zeichensätzen, BibTeX 
und INITeX, was woanders ja noch zu- 
sätzlich kostet, und die bis ins Detail 
weitergedachte und ausgefeilte Imple- 
mentierung, dann ist der Preis selbst für 
ATARI-Verhältnisse noch recht günstig. 
Zudem gibt es Sonderkonditionen für 
Universitäten und Campus-Lizenzen. 
Man erhält also eine arbeitsfähige und 
vollständige Version, die auch die verfüg- 
baren Public Domain-Teile enthält, auf- 
einander abgestimmt und preiswert aus 
einer Hand. 


Einsatzfeld 


Wegen der Robustheit des Systems, der 
automatischen Installation, dem umfang- 
reichen Satz von Makro-Paketen mit 
zugehöriger Beschreibung, dem vollstän- 


digen System von Zeichensätzen in allen 
sinnvollen Vergrößerungsstufen und vor 
allem der einfachen Bedienung durch die 
graphische Benutzeroberfläche (Shell), 
in der die wichtigsten Parameter vordefi- 
nierbar sind, kann das System auch von 
jemandem installiert und betrieben wer- 
den, der kein ausgesprochener TeXniker 
und auch kein Betriebssystem-Profi ist. 
Grundkenntnisse im Umgang mit TeX 
und dem ATARI genügen. Das hier be- 
trachtete System ist bereits mehrfach in 
Sekretariaten des Fachbereichs Mathe- 
matik der Johann Wolfgang Goethe-Uni- 
versität, Frankfurt, installiert. Dabei hat 
es sich in der Praxis gezeigt, daß mit 
einem bereits installierten System auch 
jemand gut zurechtkommt, der sich erstin 
TeX einarbeitet. Besonders die Shell wird 
hier als große Hilfe und deutliche Verbes- 
serung gegenüber anderen Implementie- 
rungen empfunden. Insgesamt handelt es 
sich hierbei um ein benutzerfreundliches 
System, das sich nicht nur auf dem 
Schreibtisch eines Testers, sondern auch 
in längerem Alltagseinsatz in der Praxis 
professionellen Schreibbetriebs, insbe- 
sondere in Verbindung mit [2], bestens 
bewährt hat. 


With a little help... 


Gerade der professionelle Anwender wird 
bald nicht mehr mit den aus der gängigen 
Literatur verfügbaren Informationen aus- 
kommen können und darüber hinaus auch 
an der Weiterentwicklung des Systems, 
insbesondere in den Bereichen Graphik 
und Eindeutschung, interessiert sein. 
Schon im TeXbook [1] wird auf die ame- 
rikanische Benutzervereinigung "TUG’ 
und deren Mitgliederzeitschrift TUGboat 
verwiesen. Seit einiger Zeit gibt es auch 
eine deutsche Vereinigung, derbereitsder 
Status eines gemeinnützigen Vereins 
zuerkannt wurde. 


Dr. Volker Kurz 


Kontaktadresse TUG: 


DANTE 

Deutschsprachige Anwendervereinigung TeX 
e.V. 

Rechenzentrum der Universität Heidelberg 
z.Hd. Herrn J. Lammarsch 

Im Neuenheimer Feld 293 

6900 Heidelberg 1 
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(06074) 1617 


STTeX (TeX-Grundsystem mit Shell, INITeX, 
BibTeX, den Makro-Paketen Plain, AMS-TeX 
und LaTeX, dem Preview DVIGRA mit 


Zeichensätzen und dem Buch [3] von Lamport): 


305 Mark. 


DVIDOT (Druckertreiber für Nadeldrucker mit 
Zeichensätzen, wahlweise für NEC P5/6/7, EP- 
SON LO oder 9-Nadler wie Epson FX-80, Star 
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STTeX mit DVIDOT: 535 Mark. 

STTeX mit DVIHP: 615 Mark 

STMF (Metafont mit INIMF): 198 Mark. 
Voraussichtlich ab Oktober ügbar: SliTeX- 
Fonts für Preview und Drucker: jeweils 98 
Mark (dies ist eine Bearbeitungsgebühr und 


kein Kaufpreis: Die Zeichensätze dürfen 
beliebig weitergegeben werden). 









Das Buch von Lamport kann bei STTeX auf 
Wunsch aber auch durch ein anderes der oben 
genannten Bücher ersetzt werden, oder es kann 
entfallen. Die Preise verringern sich dann 
Jeweils um 57 Mark. 
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Vtx-Manager V3.0. 

Sie wollen Ihr Konto verwalten, Bestellungen auf- 
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Eigener Desktop 
in Pascal plus 


| Pascal 


Eingabe von Termen 
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rogrammier 
raxis 


Tasten- 


unterstützung 


in Dropdown- Menüs 


IE der GEM-Dokumenta- 
tion von Digital Research 
wir dem Programmierer emp- 
fohlen: Wenn der Benutzer 
eine  Tastenkombination 
drückt, welche einem Menü- 
eintrag zugeordnet ist, so soll 
das Programm zuerst den ent- 
sprechenden Titel mit der 
Funktion menu_tnormal inver- 
tieren. Danach kann die ent- 
sprechende Aktion durchge- 
führt werden, und schließlich 
muß durch einen erneuten 
Aufruf von menu_tnormal der 
Menütitel wieder normal dar- 
gestellt werden. 


Jeder Programmierer, der obi- 
ges Rezept in seinen Program- 
men berücksichtigt, weiß, wie 
mühsam es unter Umständen 
sein kann, die Menüabfrage 
zweispurig fahren zu müssen. 
Einerseits wird ja auf die Mel- 
dung einer richtigen Menübe- 
tätigung gewartet, andererseits 
müssen die Tasteneingaben 
analysiert werden. Umstruktu- 
rierungen im Menü werden 
damit ebenfalls unnötig auf- 
wendig. 


Ein besseres 
Konzept 


Nun istesinden meisten Fällen 
für das Programm unwichtig 
zu wissen, ob ein Menüeintrag 
angeklickt oder ob die entspre- 
chende Tastenkombination 
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Urs Müller 


EIN GRUND FÜR DIE HOHE BENUTZER- 
FREUNDLICHKEIT VON GEM-PROGRAM- 
MEN SIND SICHER DIE DROPDOWN-MENÜS. 
DocH KÖNNEN SIE NACH EINIGER ZEIT GE- 
NAUSO BENUTZERUNFREUNDLICH WERDEN, 
FALLS SIE NICHT KONSEQUENT DURCH TA- 
STENKOMBINATIONEN UNTERSTÜTZT WER- 
DEN. AN DIESEM PUNKT MANGELT ES LEI- 
DER BEI VIELEN PROGRAMMEN. EIN GRUND 
DAFÜR IST SICHER, DASS DAS AES SOLCHE 
TASTENKOMBINATIONEN NICHT DIREKT 
UNTERSTÜTZT. EIN WEITERER GRUND 
DÜRFTE SEIN, DASS DAS AM WEITESTEN VER- 
BREITETE PROGRAMM, DAS DESKTOP, DIES 
EBENFALLS NICHT TUT. IN DIESEM BEITRAG 
WIRD EINE METHODE BESCHRIEBEN, DIE 
MINDESTENS DEN ERSTEN GRUND ENT- 
FERNT. 


gedrückt worden ist. Für den 
Programmierer wäre es also 
angenehm, wenn er die Zuord- 
nung der Menüeinträge zu den 
Tastenkombinationen bereits 
im Resource Construction Set 
vornehmen könnte, und wenn 
das AES danach für das Klik- 
ken auf einen Menüeintrag 
oder das Betätigen der entspre- 
chenden Tastensequenz dem 


Programm dieselbe Meldung 
schicken würde. 


Damit würde die oben erwähn- 
te Zweispurigkeit verhindert. 
Es könnten jederzeit, ohne 
Programmänderung, die Ta- 
stenkombinationen anderen 
Menüeinträgen zugewiesen 
werden. Auch wäre die Neuzu- 
weisung der Tastenkombina- 


tionen, welche bei der Überset- 
zung der Resource in eine an- 
dere Sprache eventuell not- 
wendig ist, kein Problem mehr. 


Meldungen 
unter GEM 


Meldungen können nicht nur 
vom System an Programme 
geschickt werden, auch Pro- 
gramme selbst haben die Mög- 
lichkeit, Meldungen an andere 
Applikationen zu schicken. 
Dazu dient der AES-Befehl 
appl_ write. So kann ein Pro- 
gramm beispielsweise mit ei- 
nem Accessory “sprechen”. 
Ein schönes Beispiel dafür ist 
der IDC-Standard [1]. Eben- 
falls ist es für ein Programm 
nicht verboten, Meldungen an 
sich selbst zu verschicken. 


Damit wird folgendes Vorge- 
hen ermöglicht: Das Pro- 
gramm wartet im Event-Loop 
auf eine Meldung (MU_ 
MESSAG) und auf einen Ta- 
stendruck (MU_KEYBD) und, 
falls nötig, auf weitere Er- 
eignisse. Im Falle eines Ta- 
stendrucks wird dieser nicht 
auf die Zugehörigkeit zueinem 
Menüeintrag untersucht, son- 
dern er wird einer Prozedur 
übergeben. Diese durchsucht 
die letzten Buchstaben aller 
Menüeinträge. Wird dabei zum 
Beispiel die Zeichenkette NC 
gefunden, was heißt, daß die 


entsprechende Funktion auch 
mit der Tastenkombination 
[Control] + ‘C’ ausgelöst wer- 
den kann, und ist diese Kombi- 
nation auch gedrückt worden, 
wird eine entsprechende Mel- 
dung an die eigene Applikation 
geschickt. Danach wird die 
Subroutine beendet, und das 
Hauptprogramm schließt sei- 
nen Loop und wartet auf ein 
neues Ereignis. Dieses wird die 
zuvor abgeschickte Meldung 
sein, worauf das Programm 
glaubt, der entsprechende 
Menüeintrag sei mit der Maus 
angeklickt worden, und die 
richtige Funktion ausführt. 


Das heißt, die Zuweisung der 
Tastenkombinationen zu den 
Menüeinträgen geschieht in 
den Menüeinträgen selbst, in- 
dem man dort die entsprechen- 
de Tastenkombination ver- 
merkt. 


Der Menübaum 


Bevor wir den Menübaum 
nach Einträgen durchsuchen 
können, brauchen wir etwas 
Kenntnis über dessen Aufbau. 
Ein Menübaum unterscheidet 
sich prinzipiell nicht von ande- 
ren Objektbäumen. Die Objek- 
te sind dieselben und werden 
durch die 24 Bytes lange Struk- 
tur (in pascal Record) OBJECT 
dargestellt. Für uns wichtig 
sind die drei Zeiger ob_next, 
ob_head und ob_tail, welche 
auf das nächste Objekt auf 
derselben Stufe, auf das erste 
und das letzte Objekt des je- 
weiligen Unterbaumes zeigen. 
Das letzte Objekt auf einer 
Stufe zeigt auf die “Mutter” 
zurück. Ein Zeiger ins 
“Nichts” wird durch -1 reprä- 
sentiert. Die Zeiger beinhalten 
nicht direkt eine Adresse, son- 
dern besagen, welche Nummer 
das bezeichnende Objekt in der 
Objektliste hat. 


Weiter werden uns ob_type 
und ob_spec, die Art des Ob- 
jektes und ein Zeiger (Adresse) 
auf den String in den Menüein- 
trägen interessieren. Eine ge- 
naue Beschreibung der Objek- 
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te und der Objektbäume befin- 
det sich in den meisten GEM- 
Büchern. Die Struktur eines 
Menübaumes istin Abb. 1 dar- 
gestellt. 


Eine mögliche 
Realisierung 


Im folgenden wird eine mögli- 
che Realisierung der obigen 
Idee beschrieben. Die Routine 
heißt menu_search und ist in 
der Programmiersprache C 
geschrieben. Sie kann zum 
Hauptprogramm gelinkt und 
von dort aufgerufen werden. 
Ein einfaches Beispielpro- 
gramm erläutert die Anwen- 
dung der Routine. 


Folgende Tastenkombinatio- 
nen werden unterstützt (X steht 
für ein beliebiges einzelnes 
Zeichen): 


*%X  [Control]+X 

EX [Alternate]+X 

F3 FibisFi0 

@F5 [Shift)+F1...F10 

F15 [Shift]+F1...F10 

‘X X (ohne zusätzliche Taste) 


Accessory-Einträge sind von 
der Suche ausgeschlossen (der 
Eintrag “Über Programm...” 
wird aber berücksichtigt). 
Kommt dieselbe Tastenkom- 
bination inmehreren Menüein- 
trägen vor, wird immer der 
erste gefundene Eintrag ge- 
nommen. 


Wird bei der Suche durch den 
Menübaum auf einen Eintrag 
gestoßen, dessen Vermerk mit 
der übergebenen Tastenkom- 
bination (kstate und key) übe- 
reinstimmt, werden folgende 
Schritte unternommen: 


1. Der entsprechende Menüti- 
tel wird invers dargestellt. 


2. Es wird eine Meldung an die 
eigene Applikation abge- 
schickt. Der Message-Buffer 
sieht dabei folgendermaßen 
aus: 


msg_buff[0] = 10 (MN_SELECTED) 


msg_buff[1] = ap_id 





Hurzel: Hinterarundobjekt (Größe) des gesanten Bildschirms) 





Menübalken (weiß, Breite des 
Bildschirns? 


— ob-nead 


Abb.1: Struktur eines Menübaumes 


Damit wird exakt die Situation 
simuliert, wie sie das Haupt- 
programm antrifft, wenn der- 
selbe Menüeintrag mit der 
Maus angeklickt worden wäre. 


Ist ein Menüeintrag disabled 
(grau dargestellt), kann er mit 
der Maus nicht selektiert wer- 
den. Die Routine verschickt in 
einem solchen Fall ebenfalls 
keine Meldung an das Haupt- 
programm. Ist ein Menütitel 
disabled, kann das entspre- 
chende Menü gar nicht herun- 
terklappen. In diesem Fall ist 
das ganze Menü von der Suche 
ausgeschlossen. 


Folgende Parameter müssen 
beim Aufruf der Funktion 
übergeben werden: 


intap_id: Application Identifi- 
cation. Diese ist notwendig für 
die Suchroutine, um zu wissen, 
an wen die Meldungen ver- 
schickt werden müssen. Die 
ap_id wird von der Funktion 
appl_init zurückgegeben. Sie 
kann aber auch später noch aus 
dem AES-Global-Array gele- 
sen werden. 


long m_tree: Adresse des 
Menübaumes. Sie kann mit 
rsrc_gaddr nach dem 
rsrc_load-Aufruf erfragt wer- 


msg_buff[2] = 0 (Länge der Meldung kleiner als 16 Bytes) 


msg_buff[3] = Index des Menütitels 
msg_buff[4] = Index des Menüeintrages 








Hintergrun 
Henüboxen 








den und muß unter anderem 
auch der Funktion menu_bar 
übergeben werden. 


int kstate: Status der Sonderta- 
sten ([Alternate], [Control], 
[Shift]). Dieser Wert wird von 
der Funktion evnt_multi zu- 
rückgegeben. 


int key: Scan- und ASCII-Code 
der gedrückten Taste. Dieser 
Wert wird ebenfalls von der 
Funktion evnt_multi zurück- 
gegeben. 


Der Aufruf von C aus sieht also 
wie folgt aus: 


menu_search(ap_id,m_tree, 
kstate,key); 


Die Funktion kann aber auch 
vom ST Pascal Plus aus aufge- 
rufen werden. Sie muß dann 
folgendermaßen importiert 
werden: 


procedure menu_searc(ap_i: 
integer; m_tree: Menu_Ptr; 
kstate, key: integer); 

G 


und kann danach wie gewohnt 
aufgerufen werden. 


Auch von Assembler kann die 
Funktion aufgerufen werden: 


move.w 
move.w 


key,-(sp) 
kstate,-(sp) 
move.|l m_tree,-(sp) 
move.w ap_id,-(sp) 
jsr menu_search 
lea 10(sp),sp 
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Die Beschreibung 
der Routine 


Die Routine besteht aus zwei 
Teilen: der Hauptroutine 
menu_search, welcheden ge- 
samten Menübaum absucht, 
und der Hilfsroutine test_ 
entry, welche die Menüein- 
träge auf zugewiesene Tasten- 
kombinationen untersucht. 


Ein erwähnenswertes Problem 
der Hauptroutine ist, festzu- 
stellen, welches Zeichen vom 
Benutzer gedrückt worden ist. 
Diese Information ist in den 
übergebenen Variablen kstare 
und key enthalten. Wenn zum 
Beispiel [Control] zusammen 
mit einer Taste gedrückt wird, 


/* 
/* menu_search 
/* 
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erhält man nicht mehr den 
ASCI-Code des entsprechen- 
den Zeichens. Der dann erhal- 
tene ASCII-Code ist nicht ein- 
mal eindeutig. So liefern zum 
Beispiel die Kombinationen 
[Control]+’3 und [Control]+ 
’S’ denselben ASCII-Code! 


Man ist also gezwungen, auf 
den Scancode zu achten. Die- 
ser ist jedoch an die physikali- 
sche Position der Tasten ge- 
bunden. Gewisse Zeichen sind 
bei verschiedensprachigen 
Tastaturen an verschiedenen 
Orten angebracht, liefern also 
verschiedene Scancodes. Ty- 
pisch ist das Beispiel von Pro- 
grammen, welche in ihren 
Menüeinträgen die Kombina- 


RAR RR RR RER / 


al 
#. 
BA 


tion “N-” versprechen. Auf der 
deutschen Tastatur muß man 
aber [Shift][Control]’?’ drük- 
ken. 


Ein möglicher Ausweg besteht 
darin, die Tastaturtabelle des 
XBIOS zu verwenden. Sie ist 
bei jedem Betriebssystem an 
die jeweilige Tastatur ange- 
paßt. Es sind insgesamt drei 
Tabellen für “Unshift”, “Shift” 
und für “Caps Lock”. Ein Zei- 
ger auf ein Array mit den Zei- 
gern auf die drei Tabellen kann 
mit der XBIOS-Funktion 
keytbl erfragt werden. Diese 
Tabellen werden mit dem 
Scancode als Index gelesen 
und enthalten den ASCII-Code 
der entsprechenden Taste. 


Die Hilfsroutine test_entry 
durchsucht das Ende des über- 
gebenen Strings nach mögli- 
chen Vermerken von Tastatur- 
kombinationen. Diese Routine 
muß also abgeändert werden, 
falls andere als die hier imple- 
mentierten Tastenkombinatio- 
nen oder andere Notationsfor- 
men gewünscht sind. 


Literatur: 


[1] Obrero A./Waldvogel M.: 

"Ein Standard für Scannersoft- 
ware”, 

ST-Magazin 1/89 


/* 
I* 
/* 
/* 
/I* 


vsosouaun#r 


/* 


/* 
/* 
/* 
/* 
I* 
/* 


Aufruf: menu_search (ap_id,m_tree,kstate,key)*/ 
a 
int ap_id: ID der aufrufenden Applikation*/ 
OBJECT *m tree: Zeiger auf den Menubaum “/ 
int kstate: Keyboard state (liefert 
event_multi) */ 
key: ASCII & Scancode (liefert 
evnt_multi) */ 
“. 
Version 1.2 */ 
eV 
El. 
von Urs Mueller, Mai 1989 */ 
(ce) MAXON Computer GmbH “/ 


int 


Kompiliert mit Megamax Laser C, 


RR / 


/I* 
/* 
/* 
/* 


/* 


durchsucht alle Menueintraege des 
uebergebenen Menubaumes nach den */ 
letzten Buchstaben. Wird bei einem Eintrag 
eine logische ueberein- */ 

stimmung mit den Werten von kstate und key 
gefunden, so wird eine */ 

Meldung MN_SELECTED an die aufrufende 
Applikation geschickt. */ 
Dies geschieht natuerlich nur dann, 
Menueintrag und der */ 
entsprechende Menutitel nicht "disabled" 
sind. */ 


wenn der 


Moegliche Werte fuer die letzten Buchstaben 
in einem Menueintrag LH 

sind: er 

"Fl" bis "F10": Funktionstasten 

"F1l" bis "F20": [Shift] Funktionstasten 
[Shift]F1 bis [Shift]F10: 

( [Shift] = ASCII(1) ) 

"A" und Buchstabe: [Control] Buchstabe 
Fullbox-Symbol und Buchstabe [Alternate] 
Buchstabe al 
Hochkomma-Buchstabe-Hochkomma : 
ohne [Ctrl] oder [Alt] */ 


Buchstabe 


Gesucht wird im Menueintrag von Rechts 
Spaces uebersprungen */ 

werden) nach einer der obigen Kombinationen. */ 
Bei den Buchstaben wird zwischen klein- und 
Grossbuchstaben nicht */ 

unterschieden 


(wobei 
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{7} 


JRR / 


/* Include-Dateien */ 
Ve / 


#include "GEMDEFS.H" /* common object 
definitions and structures */ 
/* common GEM 
definitions */ 


/* gemdos, bios, 


#include "OBDEFS.H" 


#include "OSBIND.H" xbios */ 


RRRRKKR RR / 


/* Konstanten */ 
Iraruaannnnaee/ 


#define TRUE 1 
#define FALSE 0 


#define F1 0x3b 
#define F10 0x44 
#define F11 0x54 


Scancode von Fl */ 
Scancode von F10 */ 
Scancode von 
[shift] FI */ 
Scancode von 
[shift] F10 */ 


#define F20 0x5d 


#define M_NORMAL 1 Menutitel normal 
dargestellt */ 
Menutitel Weiss auf 


Schwarz */ 


#define M_REVERSE 0 


De a 77 


/* Menueintrag untersuchen */ 
g 
RR / 


static int test_entry(str, chr, scan, state) 
char *str, chr; 
int scan, state; 


{ 
char 
int 


*pchar, vchr; 
ret, zahl; 


ret = FALSE; 





pchar = str; 
while (*pchar) pchar++; /* pchar an den 
Schluss des Strings */ 

while (*--pchar == ' ');/* von rechts 

erstes Zeichen suchen */ 
vchr = *pchar; 
if (vchr >= 'a' && vchr <= 'z') vchr = vchr - 

var Hat, 


if (vchr == chr) 
{ 
pchar--; 
if (*pchar=='*' && state==K_CTRL || *pchar== 


else if (*pchar '\'! && (state & (K_CTRL | 
K_ALT)) 0) 
{ 
pchar--; 
vchr = *pchar; 
if (vchr >= 'a' 86 vchr <= 'z') vchr = vchr - 
Tal + tat; 
if (vehr == chr && *(pchar-1) == '\'') 
ret = TRUE; 
} 
else if (*pchar && *pchar <= '9') 
{ 
zahl = *pchar - '0'; 
pchar--; 
if (*pchar >= '0' && *pchar <= '9') 
{ 
zahl += (*pchar - '0') * 10; 
pchar--; 
} 
if (*pchar == 'F') 
{ 
if (*(pchar-1) == 1) /* [Shift]-Zeichen */ 
zahl += 10; 
if ((zahl >= 1) && (zahl <= 10)) 
if (zahl == scan - Fl + 1) ret = TRUE; 
if ((zahl >= 11) && (zahl <= 20)) 
if (zahl scan - Fll + 11) ret = TRUE; 
} 
} 


return (ret); 


}  /* end of test_entry */ 


RR / 


/* Hauptprogramm */ 
IP‘ 
Des / 


void menu_search(ap_id, m_tree, kstate, key) 
int ap_id; 

OBJECT *m_tree; 

int kstate; 

int key; 


msg_buff[8]; /* message buffer */ 
do_quit; 

*pkeytbl; 

*kbd_ unshift; /* TastTab. normal */ 
*kbd_shift; /* TastTab. shift */ 
*kbd_caps; /* TastTab. caps lock */ 
ehr; 

state, scan, desk; 

mother_title, child title, mother_entry, 
child_entry; 


do_quit = FALSE; 
desk = TRUE; 


Pkeytbl = Keytbl(-1L, -1L, -1L); 
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kbd_unshift (*pkeytbl) .unshift; /* Zeiger auf 
Tabelle 'normal' */ 
kbd_shift (*pkeytbl) .shift; /* Zeiger auf 
Tabelle 'shift' */ 
kbd_caps (*pkeytbl).capslock; /* Zeiger auf 
Tabelle 'caps lock' */ 
wind_update (BEG_UPDATE); /* warten bis 
Drop-Downs.. */ 
wind_update (END_UPDATE); /* geschlossen */ 
scan = key/256 & Oxff; 
if ((kstate & (K_LSHIFT | K_RSHIFT)) == 0) 
chr = *(kbd_unshift + (scan)); 
else 
chr = *(kbd_shift + (scan)); 
if (chr >= 'a' 86 chr <= 'z') chr += 'A' - 
/* upcase */ 


if ((kstatesK_ALT) != 0 && (kstatesK_CTRL) 
state = K_ALT; /* [Alt] gedrueckt */ 
else if ((kstatesK_CTRL) != 0 && (kstatesK_ALT) 
== 0) 
state = K_CTRL; /* [Shift] gedrueckt */ 
else if ((kstatesK_ALT) == 0 && (kstate&sK_CTRL) 


=0; /* nichts gedrueckt */ 
else do_quit = TRUE; /* [Alt] und [Shift] */ 


mother_title (m_tree + m_tree->ob_head)- 
>ob_head; 

child title = (m tree + mother _title)->ob_head; 

mother_entry = (m tree + m tree->ob_tail)- 
>ob_head; 

child _ entry = (m tree + mother_entry)->ob_head; 


while (!do_quit) 
{ /* title loop */ 
if (((m_tree + child title)->ob_state & 
DISABLED) == 0) 
while(!do quit && child entry != 
mother_entry && child_entry != -ı) 
{ 
if ((((m_tree + child entry) ->ob_state 
DISABLED) == 0) && 
((m_tree + child entry)->ob_type 
G_STRING || 
(m_tree + child_entry) ->ob_type 
G_BUTTON)) 
do_quit = test_entry((char*) (m tree + 
child_entry)->ob_spec, 
chr, scan, state); 
if (do_quit) 
{ 
msg_buff[0] MN_SELECTED; 
msg_buff[1] = ap_id; 
msg_buff[2] = 0; /* Laenge Nachricht */ 
msg_buff[3] = child title; /* Titel */ 
msg_buff[4] child entry; /* Eintrag */ 
menu_tnormal(m_tree, child title, 
M_REVERSE) ; 
appl_write(ap_ id, 16, msg_buff); 
/* Message senden */ 
} 
child entry = (m tree + child_entry)- 
>ob_next; 
if (desk) 
{ /* Accessories nicht testen */ 
child entry = mother_entry; 
desk = FALSE; 
} 
} 
child title = (m tree + child title)->ob_next; 
mother_entry (m_tree + mother_entry)- 
>ob_next; 
child entry = (m tree + mother_entry)->ob_head; 
if (child title == mother title) do quit = 
TRUE; 
} /* while (!do_quit) */ 


/* end of menu_search */ 
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#define MENU 0 TREE */ 
#define M_INFO 7 OBJECT in 


#define M_CTRI_R 16 OBJECT in 
#define M ALT_E 17 OBJECT in 
#define M_QUEST 18 OBJECT in 
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#define M F1 19 OBJECT 

#define M_F13 20 OBJECT i 
#define M F15 21 OBJECT i 
#define M_QUIT 23 OBJECT i 





RER] 
/* Beispiel zur Nutzung der Routine */ 
/* menu_search */ 
il N 
/* von Urs Müller, Mai 1989 */ 


/* (c) MAXON Computer GmbH */ 
DR / 


[RRRRRR RR / 


/* Include-Dateien */ 
Des / 


#include "M_DEMO.H" /* Includefile für 
Resource */ 
/* common object 
definitions and structures */ 
/* common GEM 
definitions */ 


#include "GEMDEFS.H" 


#include "OBDEFS.H" 


Pe / 


/* Konstanten */ 
RR / 


#define RSCNAME "M DEMO.RSC" /* Name der 
Resource-Datei */ 


#define TRUE 1 
#define FALSE 0 


/* Konstanten für menu_tnormal (AES 33) */ 


#define M NORMAL 1 /* Menutitel 
normal dargestellt */ 
/* Menutitel 


Weiss auf Schwarz */ 


#define M_REVERSE 0 


VERRR RR / 


/* Variablen */ 
JRR ER / 


OBJECT *menu_tree; /* &Menu */ 

int ap_id; /* Application 
Identification */ 

int dummy; 


Pass / 


/* Funktionen */ 
VRR / 


static void do_info() 

{ 

dummy = form_alert (1, "[O0][ IMenueintrag Info ][ 
OX 1"); 2 

} 


static void do_ctrl_r() 


ü 
dummy = form alert(1, "[0][ |Funktion 1 ][ OK 


7 
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static void do_alt_e() 

{ 

dummy = form alert(1, "[0][ IFunktion 
jaje 

} 


static void do_quest () 

{ 

dummy = form_alert (1, |Funktion 
1"); 

} 


static void do_f1() 

{ 

dummy = form.alert (1, |Funktion 
1"); 

} 


static void do_f13() 

{ 

dummy = form_alert (1, Funktion 
an 

} 


static void do_f15() 

{ 

dummy = form_alert (1, |Funktion 
3 

} 


Iruannnannnneee/ 


/* event_loop */ 
ee ey) 


static void event_loop() 


{ 


msg[8]; Message-Buffer */ 
event; Event-Typ */ 
key, kstate; Taste und Status 

der Kontrolltasten */ 
do_quit; Flag */ 


evnt_multi(MU_KEYBD | MU_MESAG, 
0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 
msg, 
0, 0, &dummy, &dummy, 
&dummy, 
&kstate, 
key, 
&dummy); 
switch (event) 
{ 
case MU_KEYBD: menu_search(ap_id, menu_tree, 
kstate, key); 
break; 


case MU_MESAG: if (msg[0] == MN_SELECTED) 

{ 

switch (msg[4]) 
{ 
case M INFO: do_info(); 

break; 
case M CTRL_R:do_ctrl_r(); 
break; _, 





} 
} 
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M ALT E: do alt e(); 
break; : void main() 

M_QUEST: do_quest (); 
break; el 

M_Fl: do_f1(); : char *rsc_name; 
break; 

M_F13: do_f13(); :  rsc_name = RSCNAME; /* Name des Resourcefiles */ 
break; 

MF15: do_fl5(); : ap_id = appl_init(); 
break; : if (ap_ id >= 0) 

M_QUIT: do_quit = 2 { 
TRUE; break; } graf_mouse (ARROW, OL); /* 

} /* switch (msg[4]) */ Mauszeiger = Pfeil */ 
if (!do_quit) : if (rsre_load(rsc_name) == 0) 
menu_tnormal (menu_tree, S dummy = form alert(1, "[3][ |Resourcefile 
msg[3], M_NORMAL); not found! ][ OK ]"); 
} & else 
break; : { /* Resource wurde geladen */ 
/* switch (event) */ : rsre_gaddr(R TREE, MENU, &menu_tree); 
/* Menu */ 


while (!do_quit); - menu_bar (menu_tree, 1); /* Menu zeichnen */ 


} 


/* end of event_loop */ € event_loop (); 
menu_bar(menu_tree, 0); /* Menu entfernen */ 
rsrc_free(); 
} 
appl_exit(); 


er / E } 


/* Haupt-Routine */ 
Per / 
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Menüleisten 


ie hier vorgestellten 

Routinen ermöglichen 
es, einem Programm auf einfa- 
che Weise eine individuelle 
Note zu geben, ohne auf das 
bekannte Prinzip der GEM- 
Menüleisten verzichten zu 
müssen. Ein Nachteil dieser 
Routinen soll gleich zu Anfang 
genannt werden: Es ist nicht 
möglich, Accessories aus die- 
sen Routinen heraus aufzuru- 
fen. Es ist daher sinnvoll, auch 
die normale Menüleiste zu 
verwenden, wenn man nicht 
auf Accessories verzichten 
will. Das können die Routinen: 


- Unterstützung aller drei 
Auflösungen 

- Verwaltung einer beliebigen 
Anzahl von Menüleisten 

- horizontale oder vertikale 
Ausrichtung der Menüs 

- wahlweise nach links, rechts, 
oben oder unten ausklappende 
Pull-Down-Menüs 

- Menüleisten beliebig auf dem 
Bildschirm plazierbar 

- 4 Schriftgrößen und frei 
definierbare Textfarbe 

- versteckte Menüleisten 
möglich 

- erst nach Mausklick ausklappen- 
de Pull-Down-Menüs möglich 

- Menüeinträge können, zusätz- 
lich zu den vom GEM bekannten 
Möglichkeiten, fett dargestellt 
werden (z.B. für Überschriften) 

- einfaches Ändern der Menüein- 
träge (neuer Text kann beliebige 
Länge haben) 


Der Menüaufbau 


Die Data-Zeilen für eine Me- 
nüleiste sollten folgenderma- 
ßen aufgebaut sein: Der erste 
String in den Daten ist der erste 


ss ST” 11/1989 


total 


Matthias Andrä 


EmE GEM-MENÜLEISTE, DIE HORIZON- 
TAL AM OBEREN BILDSCHIRMRAND IN EINER 
VORGEGEBENEN SCHRIFTGRÖSSE ER- 
SCHEINT, IST ZUGEGEBEN SEHR PRAKTISCH 
UND MIT EINIGEN GFA-BASIC-BEFEH- 
LEN AUCH LEICHT ZU VERWALTEN. WIE 
WÄRE ES ABER Z.B., WENN MAN NICHT NUR 
EINE MENÜLEISTE, SONDERN BELIEBIG VIE- 
LE DARSTELLEN KÖNNTE? UND WIE WÄRE ES 
DANN, WENN MAN DIESE MENÜLEISTEN AUF 
DEM BILDSCHIRM DORT PLAZIEREN KÖNN- 
TE, WO MAN DIES GERADE HABEN WILL, 
WENN MAN DIESE MENÜLEISTEN IN VIER 
VERSCHIEDEN SCHRIFTGRÖSSEN UND EINER 
BELIEBIGEN TEXTFARBE ZEICHNEN KÖNNTE, 
WENN MAN DIESE MENÜLEISTEN NICHT NUR 
HORIZONTAL SONDERN AUCH VERTIKAL 
ZEICHNEN KÖNNTE, WENN ..., WENN ..., 
WENN ..., DAS WÄRE DOCH NICHT SCHLECHT, 
ODER? 


das erste Zeichen eines Menü- 


Menütitel, danach folgen die 
einzelnen Menüeinträge, abge- 
schlossen wird das ganze mit 
einem Leerstring. Dann folgt 
der nächste Titel, usw., das 
Ende einer Menüleiste wird 
mit “***" angegeben. Daran 
anschließend können Daten für 
weitere Menüleisten nach dem 
selben Schema folgen. Wenn 


eintrages ein “+” oder “-” ist, 
wird der Eintrag direkt un- 
wählbar fett (“+”), oder un- 
wählbar hell (“-”) gemacht. 
Das “-” oder “+” erscheint 
nicht im Eintrag. Der Aufbau 
der Daten ist somit fast iden- 
tisch mit dem von GFA-BA- 
SIC für GEM-Menüs verwen- 


deten Prinzip. Die Menüdaten 
werden mit folgenden Befeh- 
len eingelesen: 


Restore >Menülabel< 

Gosub Menues_berechnen(n) 

Restore >Menülabel< 

Gosub Menues_initialisieren 
(x_res,y_res) 


n ist die Anzahl der Menülei- 
sten, die am Stück eingelesen 
werden sollen. In x_res und 
y_ res müssen die maximal 
möglichen Bildschirmkoordi- 
naten angegeben werden (z.B. 
639 und 399 für hohe Auflö- 
sung). Das ist schon alles, was 
zur Initialisierung notwendig 
ist, danach kann es losgehen. 


Weitere Befehle 


Gosub Menu_paint (m_nr,xl, 
y1,x2,y2,r1!,r2!,v!,k!) zeichnet 
und aktiviert eine Menüleiste. 


m_nr entspricht der laufenden 
Nummer der Menüleiste (m_nr 
20). 


xl,y1,x2,y2 sind die Bild- 
schirmkoordinaten der Menü- 
leiste. 


xl und y/ sind die Koordinaten 
der in Schreibrichtung linken 
unteren Ecke des Menüs. 


x2 und y2 geben dabei jeweils 
die Breite des Menüs an, wobei 
die Menüleiste immer minde- 
stens so breit ist, wie es für den 
Menütext benötigt wird. Wird 
als Wert -] angegeben, nimmt 
die Routine Standartwerte an. 


rt! =Richtung 1 

ri! =false => horizontal 
ri! =true => vertikal 

r2! =Richtung 2 
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GosubMenu_image (m_nr, 
tg ‚f) setzt Textgröße und Farbe 
eines Menüs. 


r2! =false => Pull-Downs 


v! = Versteckt-Flag 
v!=false => Menü normal 
v!=true => Menü versteckt 


nach unten oder rechts 
r2! =true=> Pull-Downs nach 
oben oder links 


tg = Textgröße (0..3) 
f = Textfarbe (0..15) 


Gosub Menu_text (m_nr,m_p, 
a,t$) ändert Attribut und Text 
eines Eintrages. 


k! =Mausklick-Flag 
k! =false => Pull-Downs normal 


kl =true => Pull-Downs er- 
scheinen erst nach Maus- 
klick 


GosubOn_menu(*m_nr,*m_p) 
fragt alle aktiven Menülei- 


m_p = Nummer des Menüein- 
trags 
a = Attribut des Eintrags 
a = -1=> keine Änderung, 
a= 0 => normal, 
a = 1 => fett (unwählbar) 
a= 2 => hell (unwählbar), 
a = 3 => normal mit Häkchen 


Gosub Menu_lock (m_nr) 
sperrt die Bearbeitung eines 
Menüs, um z.B. einen Aufruf 
derinihm enthaltenen Einträge 
vorübergehend zu vermeiden, 
oder in Verbindung mit Gosub 
Menu_kill(lm_nr) ein Menü 
komplett zu entfernen. Die 
Daten des Menüs bleiben dabei 
erhalten und können für ein 
erneutes aktivieren der Menü- 
leiste wieder genutzt werden. 
Alle anderen Prozeduren soll- 
ten nach Möglichkeit nicht 
genutzt werden, da das den 
normalen Ablauf mit hoher 
Wahrscheinlichkeit stören 


fang vermeidet, nicht zu unge- 
wollten Effekten kommen. Im 
Allgemeinen sollte man darauf 
verzichten, auf Variablen, die 
von den Routinen benutzt wer- 
den, direkt zuzugreifen, “lega- 
le” Ausnahmen davon sind: 


- M_hidden!(m_nr) => Flag 
für versteckte Menüleisten 

-M _klick!(m_nr) => Maus 
klick-Flag für Pull-Down- 
Menüs 


Die Variable M_action! kann 
dazu genutzt werden, um fest- 
zustellen, ob eine Menüfunk- 
tion aktiviert wurde oder nicht. 
Falls M_action!=True ist, soll- 


sten ab und gibt evtl. in m_nr 
die Nummer der Menüleiste, 
in m_p die Nummer des ange- 
wählten Eintrags zurück. 
Dieser Befehl sollte mög- 
lichst in eine Schleife gesetzt 
werden (z.B. DO..LOOP). 
Die Variablen müssen als 
Pointer eingesetzt werden, 
um eine Rückgabe zu ermög- 
lichen! 


a2 4 => hell mit Häkchen 


t$ = Menüeintrag-String 
wenn t$ = "", dann keine Ände- 
rung 





Gosub Menu_kill(m_nr)löscht 
eine Menüleiste vom Bild- 
schirm, um Änderungen in der 
Lage des Menüs oder in der 
Titelzeile zu ermöglichen. 





würde. 


te man nicht im Bildschirm 
da es dann z.B. 
möglich wäre, daß ein ausge- 
Pull-Down-Menü 


zeichnen, 
Die Variablen 
klapptes 
Sämtliche von den Routinen «im Weg” ist. 
benutzten externen Variablen 
haben ein M_ vorangestellt. 
Daher dürfte es, wenn man im 
übrigen Programm Variablen- 
namen mit einem solchen An- P 
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Procedure Menues_ berechnen (N#) 
' Dimensionierungen der Arrays vornehmen 
' und maximale AusmaPe der Menüs berechnen 


Local I%,M%,T$,M mpd#,M mtit* 
M_max%=Max (0,N%-1) 
Dim M_maxpulldown$ (M max%),M maxtitelt (M maxt) 
Dim M_hidden! (M max#),M klick! (M max®), 
M_back$ (M _max%),M back! (M max?) 
M_paint!(M max%),M aktiv! (M maxt®), 
M_text_size%(M max%) 
M_th$ (M max$),M_tb%(M max%),M tof%(M max®), 
M_color% (M max%) 
M_x% (M maxt),M y%(M max%),M x1%(M max®), 
M_yl%(M max®) 
Dim M directionl!(M maxt),M direction2!(M max®) 
Clr M_mpd%,M mtit% 
For Mt=0 To M maxt 
M_maxpulldown$ (M%)=0 
M_maxtitel% (M%)=0 
Clr I% 
M_titel!=True 
Repeat 
Read T$ 
Exit I£ T$="tre" 
I£ M titel! 
Inc M_maxtitel%(M$) 
Clr I%,M titel! 
Endif 
IE T$="" 
M_titel!=True 
M_maxpulldown$ (M%)=Max (M maxpulldown®, I%) 
Endif 
Inc I% 
Until T$="rxe" 





Dec M_maxpulldown$ (M#) 


Dec M maxtitel% (M%) 


M_mpd%=Max (M mpd#,M maxpulldown% (M%)) 
M_mtitt=Max(M mtit%,M maxtitel# (M$)) 


Next M% 


Dim Menu$ (M_max%,M _mtit%,M_mpd#) 
Dim Menu_style%(M max®,M mtit%,M mpd%) 


Return 


Procedure Menues_initialisieren(X_res#,Y_res#) 


Local a$ 
M_xrest=X_res# 
M_yrest=Y rest 
For M%=0 To M_maxt 


Initialisiert die Daten der Menüleisten 


For M_titelt=0 To M_maxtitel% (M%) 
For M_pulldown$=0 To M _maxpulldown$ (M#) 
Let Menu$ (M%,M titel%,M pulldown$)="" 


Next M_pulldown® 


Next M_titelt 


For M titel%=0 To M maxtitel%(M$) 
For M_pulldownt=0 To M maxpulldown$ (Mt) +1 


Read T$ 
Exit If T$ 


I£ M_pulldown$=0 
Let Menu$ (M%,M titel%,M _pulldownt)=" "+ 


1S4" " 
Else 


A$=Left$(T$) 


If Ag="-" Or Ag=n+" 
@Menu_nr (M%,M titel%,M pulldown#, * 


M_punkt#) 


@Menu_text (M%,M punkt%,Asc (A$)-43- 


(Asc (A$)=43),"") 


T$=Mid$ (T$,2) 


Endif 


Let Menu$ (M%,M titel®,M pulldown%)=T$ 


Endif 


Next M_pulldown® 


Next M_titels 
Read T$ 
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Next M#% 
For M%=0 To M max% 
I£ Xbios (4)=2 
Restore L_m2groesse 
Else 
Restore L_mlgroesse 
Endif ? 
Read M text_sizet(M%),M tb%(M%),M th% (M%), 
M_tof% (Mt) 
M_color& (M%)=1 
M_hidden! (M#)=False 
Next M#% 


Mty 
M_pulldownt=-1 
M_pd#=-1 
Clr M_titelt 
Return 
Procedure Menu_image (M#, Groesse#, Farbe$) 
' Setzen von Textgroesse und Farbe der 
Menüleiste 
Local I#% 
L_m_groesse: 
Data 4,6,6,0 
L_migroesse: 
Data 6,8,8,0 
L_m2groesse: 
Data 13,8,16,2 
Data 32,16,32,4 
I£ M%>=0 And M%<=M_max#t 
If Groesset>=0 
Restore L_m groesse 
Groesse#=Min (3, Groesse#) 
For It=0 To Groesse# 
Read M_text_size#(M%),M tb#% (M%), 
M_th$ (M#) ,M_tof# (M%) 
Next I# 
Endif 
If Farbet>=0 
M_color# (M%)=Min (15, Farbe#) 
Endif 
Endif 
Return 
Procedure Menu_paint (M%,X1%, Y1%,X2%, Y2%, 
Richtungl!,Richtung2!,Versteckt!, 
Klick!) 
' Übernahme der Koordinaten für Menüleiste 
' und Menüleiste zeichnen ( falls nicht 
versteckt ! ) 
I£ M%>=0 And M%<=M_max% 
M_directionl! (M%)=Richtungl! 
M_direction2! (M%)=Richtung2! 
M_hidden! (M%)=Versteckt! 
M_klick! (M%)=Klick! 
M_ aktiv! (M$)=True 
I£ M directionl! (M%) 
M_y$ (M%)=M_yres* 
M_y1% (M%)=0 
If Y1%>=0 
M_y®% (M%)=Min(M yres#,Max(Y1%,M tb® (Mt) * 
2)) 
Endif 
If Y2%>=0 
M_y1# (M%)=Min (Y1%, Y2%) 
Endif 
M_x% (M%)=Max(M th% (M%),Min(M xres%-2,X1%)) 
If Not M_hidden! (M%) 
@M_paint_ver 
Endif 
Else 
M_x$ (M$)=0 
M_x1% (M$)=M_xrest 
If X1%>=0 
M_x% (M%)=Min (X1%,M_ xres#-M_tb# (M%) *2) 
Endif 
If xX2%>=0 
M_x1% (M%)=Min (Max (X1%,X2%),M xres#) 
Endif 
M_y$ (M$)=Max (M_th% (M%) ,‚Min(M yres%-2,Y1®)) 
If Not M hidden! (M$%) 
@M_paint_hor 
Endif 
Endif 
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Endif 
Return 
Procedure On_menu (Adressel%, Adresse2%) 
' Fragt Menüleisten ab und gibt die Nummer des 
Menüs und 
' eines evtl. angeklickten Menüpunktes zurück 
Local Mn%,M%,Mx%,My%,Mk%,M end! 
Mouse Mx%,My%,Mk% 
Clr M_end!,M action! 
If Menu_nr#>-1 And (Not M pulldown! And 
M_invt!) 
@Menu_off (Menu_nr$) 
Endif 
For M%=0 To M maxt 
I£ M aktiv! (M#) 
I£ M_pdt=M% Or M_pd$=-1 
Mn&=-1 
If M_pulldown! 
M_action!=True 
If Mx%>M_pdx% And Mx$<M_pdxl% And 
My$>M_pdy% And My%<M pdyl%-1 
M_pnr$%= (My%-M_pdyt-1)/M_th® (M%) +1 
If Menu_style% (M%,M_titel®,M_pnr$%)=0 
Or Menu_style# (M%,M titel®, 
M_pnr$%)=3 
If M_nr%<>M_pnr% 
I£ M_punkt! 
Put Max(0,M_pdx%+1),Max(0, 
M_py%),M_punkt$,10 
Endif 
M_py%=(M_pnr&%-1)*M_th% (M$)+ 
M_pdyt+1 
M_pyl%=M_py%+M_th% (M%) 
Get Max(0,M pdx%+1),Max(0,M_py®), 
Min(M xres%,M pdx1%-1), 
Min(M yres#%,M pyl®), 
M_punkt$ 
Put Max(0,M pdx%+1),Max(0,M_py®), 
M_punkt$,10 
M_punkt%=M_pnr% 
M_nr&=M_pnrt 
M_punkt!=True 
Endif 
I£ Mk#=1 
@Menu_nr (M%,M titel%,M punkt#, * 
Mn$) 
@Menu_pull_down_back 
M_end!=True 
Goto L_on menu_end 
Endif 
Else 
Goto L_mpunkt_invert 
Endif 
Else 
L_mpunkt_invert: 
I£ M_punkt! 
Put Max(0,M_pdx%+1),Max(0,M_py®%), 
M_punkt$,10 
Clr M punkt!,M nr#,M pnr%,M punkt® 
Endif 
Endif 
Endif 
If M direction! (M%) 
I£ My$>=M_yl%(M$) And My$<=M_y$ (M%) 
And Mx%>=M_x% (M$) -M_th# (M%) 
And Mx% I x% (M%) +2 
M_action!=True 
If M_hidden! (M%) And Not M_back! (M%) 
@M_paint_ver 
Endif 
If M_pulldown! Or (Mk%=1 And 
M_klick! (M%)) Or Not 
M_klick! (M%) 
Y3=M_y% (M$) 
For M_t%=0 To M maxtitel% (M$) 
Sub Y#%, Len (Menu$ (M%$,M t%,0))* 
M_tb& (M%) 
Exit I£ Y%<My$% 
Next M_t#% 
Y$=Max (0,Y%) 
I£ Y$<My$ 
I£ Y$<>M_ty% 
@Menu_inv (M%) 
Get M_x$ (M$)-M_th$ (M$) - 
M_direction2! (M%) ,Y%, — 





M_x% (M$)+1- 


M direction2! (M%), Y%+ 
Len (Menu$ (M®,M _t#,0))* 
M_tb$ (M%),Inv_titel$ 
M_x% (M%)-M_th% (M%) - 
M_direction2! (M%) ,Y$%, 
Inv_titel$,10 
M_ty$=Y$ 
M_titels=M_t% 
M_invt!=True 
Endif 
Endif 
Endif 
Else 
Goto L_pulldown_delete 
Endif 
Else 
| y$ (M$)-M_th% (M$) And 
I y$ (M%)+2 And 
| x%(M%) And 
| x1% (M$) 

M_action!=True 

I£ M hidden! (M%) And Not M back! (M#%) 
@M_paint_hor 

Endif 

If M_pulldown! Or (Mk%=1 And 
M_klick!(M%)) Or Not 
M_klick! (M®) 

X%=M_x% (M$) 
For M t#=0 To M maxtitel# (M$) 
Add X#%, Len (Menu$ (M%,M_t#,0))* 
M_tb# (M#) 
Exit If X%>Mx% 
Next M_t% 
If X%>Mx#% 
Sub X%, Len (Menu$ (M#,M _t%,0))* 
M_tb# (M#) 
I£ X4<>M_tx% 

@Menu_inv(M%) 

Get X%,Max(0,M_y%(M#)- 
M_th% (M#) - 
M_direction2!(M#)), 
Min(M_ xres#, 

Min (M xres%, X%+ 

Len (Menu$ (M%,M t%,0))* 
M_tb# (M%))), 

Min(M yres#,M y%(M%)+1- 
M_direction2!(Mt)), 
Inv_titel$ 
x%,Max(0,M_ y®(M#)- 
M_th$ (M%) - 
M_direction2!(M#)), 
Inv_titel$,10 

M_txt=X% 

M_titels=M_t% 

M_invt!=True 

Endif 
Endif 
Endif 
Else 

L_pulldown_delete: 

If M_paint!(M%) And ((M_pulldown! 
And Mk%=1) Or Not 
M_pulldown!) 
@Menu_pull_down_back 
@Menu_off (M%) 

Clr M titel%,M invt! 
M_back! (M%)=False 


If M invt! And M titel%<>M_pulldowns 
@Menu_pull_down 
Endif 
L_on_menu_end: 
*Adresselt=M% 
*Adresse2%=Mn$% 
Endif 
Endif 
Exit I£ M end! 
Next M% 
Return 
Procedure Menu_text (M#,M_n%,S%,T$) 
‘ Ändert Menüeinträge 
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Local I%,N%,Mn# 
I£ M%>=0 And M$<=M_ maxt 
Clr Mn% 
For I$=0 To M maxtitel%(M%) 
For N%=0 To M maxpulldowns% (M#) 
Exit If Mns=M_n% 
Sub Mn$%,Menu$ (M%, 1%, N3)<>"" 
Next N% 
Exit I£ Mnt=M_n% 
Next I% 


Menu_style% (M%, 1%, N%)=S% 


If T$<>"" 
Let Menu$ (M%, I$,N%)=T$ 
Endif 
Endif 
Endif 
Return 
Procedure Menu_kill(M#) 
' Löscht angegebene Menüleiste 
I£ M%>=0 And M%<=M_maxt 
If M_directioni! (M%) 
Put M_x%(M%)-M th%(M%),M yl%(M%), 
M_back$ (M#) ,3 
Else 
Put M_ x%(M%),M y®(M%)-M_th%(M%), 
M_back$ (M#) ,3 
Endif 
Clr M titel#%,M invt! 
M_paint! (Mt)=False 
M_back! (M$)=False 
Endif 
Return 
Procedure Menu_lock (M%, Lock!) 
’ Sperrt Menübearbeitung, oder hebt Sperre auf 
M_ aktiv! (M%)=Not Lock! 
Return 


' *%**%* Interne Routinen für Menü-Library **** 
Procedure Menu_inv(M%) 
If M_invt! 
If M_ directionl! (M%) 

Put Max(0,M_x% (M$)-M_th#% (M%) - 
M_direction2!(M#)),M_ty®, 
Inv_titel$,10 

M_ty&=-1 

Else 

Put M_tx%,Max(0,M_y% (M%)-M_th% (M$) - 
M_direction2! (M%)),Inv_titel$,10 

M_tx#=-1 

Endif 
Clr M_titel%,Inv_titel$,M invt! 
Endif 
Return 
Procedure Menu_off(M#) 
@Menu_inv (M%) 
I£ M_hidden! (Mt) 
@Menu_kill(M#) 
Endif 
Return 
Procedure M leiste vorbereiten 
Clr M_ leiste$ 
For M titelt=0 To M maxtitel%(M$) 
M_leiste$=M_leiste$+Menu$ (M%,M_titel$, 0) 
Next M titel% 
M_paint! (M%$)=True 
M_back! (M%)=True 
Graphmode 1 
Color 1 
Return 
Procedure M paint_hor 
@M_leiste vorbereiten 
M_x1% (M%)=Min(M xres%,Max(M x%(M%)+ 
Len(M leiste$)*M _tb% (M%),M_x1%(M%))) 
Get M_x%(M%),M_y%(M%)-M_th% (M%),M x1% (M#), 

M_y% (M%)+2,M back$ (M$%) 

Put M_x%(M%),M y®(M%)-M th%(M%),M back$ (Mt), 0 
Deftext M_color%(M#),0,0,M text_size+ (M$) 

Text M_x%(M%),M y%(M%)-M _tof%(M%),M leiste$ 

If M direction2! (M$%) ey 
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Line M_x%(M%),M y%(M%)-M_th% (M%),M x1%(M%), : M_pd#=M% 
M_y* (M%)-M_th& (M%) : Graphmode 1 
Else ä Get Max(0,M_pdx#),Max(0,M pdy%),Min(M xres#, 
Line M_x%(M%),M_y®(M%)+2,M_x1% (M%),M y% (M%)+2 M_pdx1%),Min(M yres#,M pdyl®), 
Endif M_pulldown$ 
Return B Deffill 1,0,0 
Procedure M_paint_ver 3 Pbox M_pdx#,M pdy%,M pdx1%,M pdyl% 
@M leiste vorbereiten ö For Mn$=1 To I# 
M_y1% (M%)=Max(0,Min(M y%(M%)-Len(M leiste$)* : Add Y%,M th%(M%) 
M_tb#(M%),M_ y1%(M®%))) : If Menu_style%(M%,M titel#%,Mn#)<3 
Get M_x% (M$)-M_th% (M$),M_yl% (M$),M_x# (M%) +2, : If Menu_style%(M%,M titel%,Mn$)=2 And 
M_y% (M%),M_back$ (M%) M_text_sizet (M$)=4 
Put M_x%(Mt)-M_th% (M%),M yl#%(M%),M back$ (M%),O E Deftext M_color+ (Mt) ,3,0,M text_size# (M$) 
Deftext M_color%(M%),0,900,M text_size% (M%) B Else 
Text M_x% (M%$)-M_tof%(M%),M_ y®(M%),M leiste$ : Deftext M_color%(M%) ‚Menu_style# (M#, 
If M_ direction2! (M%) M_titel%,Mn$%),0,M text_size% (M%) 
Line M_x%(M#%)-M_th®(M%),M y%(M%),M x% (M%)- : Endif 
M_th# (M%),M_y1% (M#) : Text M_pdx%+1,Y%,Menu$ (M$,M titel%,Mn#) 
Else : Else 
Line M_x%(M%)+2,M_ y%(M%),M x%(M%)+2,M y1%(M#) B If Menu_style#(M#%,M titel#%,Mn%)=3 
Endif : Deftext M_color%(M%),0,0,M_text_size$ (M#) 
Return B Else 
Procedure Menu_pull_down B If M_text_size% (M$)=4 
Local I%,Mn# : Deftext M_color&(M%),3,0, 
@Menu_pull_down_back M_text_sizet (M%) 
Clr I%,M_pdb% B Else 
Repeat : Deftext M_color# (M%),2,0, 
Ine I M_text_sizet (M%) 
M_pdbt=Max (M_pdb#, Len (Menu$ (M%,M titel%,1%))* : Endif 
M_tb#$ (M#)) : Endif 
Until I%>=M_maxpulldown% (M%) Or Menu$ (M#, = Text M_pdx%+1,Y%,Menu$ (M#,M titel*,Mn#) 
M_titel%, I#)="" B Text M_pdx#+2,Y%,"" 
Inc M_pdb% & Endif 
Add I%,Menu$ (M%,M titel%,I#)="" : Next Mn% 
M_pdl%=I%*M_th% (M$) +2 : Return 
If M_directionl! (M%) : Procedure Menu_pull_down back 

If M_ direction2! (M%) ® I£ M_pulldown! 

M_pdx1%=M_x% (M%$)-M_th# (M$) ; Put Max(0,M_pdx%),Max(0,M_pdy%),M_pulldown$,3 
M_pdxt=M_pdx1%-M_pdb*# A M_pulldown#=-1 

Else : M_pd$=-1 
M_pdx%=M_x% (M%) +2 2 Clr M_punkt!,M pulldown!,M pnr#,M nr% 
M_pdx1#=M pdxt+M_pdb% k Endif 

Endif : Return 

M_pdyl#=M_ty$%+Len (Menu$ (M$,M_titel®,0))* : Procedure Menu_nr (M%,M t%,M n%,Adresse&) 

M_tb#% (M%) B Local I#®,N%,Nm$ 

M_pdyt=M_pdyl1%-M_pdi% : I£ M%>=0 And M3<=M_max% 

Else B Clr Nm% 

M_pdxt=M_tx% : For I$=0 To M maxtitel% (M#) 

M_pdx1%=M txt+M_pdbt ö For Nt=0 To M maxpulldown# (M%) 

I£ M_direction2! (M$) 5 Exit If I$=M_t% And Nt=M_n$% 
M_pdy1%=M_y% (M%) -M_th% (M%) : Sub Nm%,Menu$ (M%, 1%, N%)<>"" 
M_pdyt=M_pdy1%-M_pdl% B Next N#% 

Else 5 Exit If I$=M_t% And Nt=M_n% 
M_pdyt=M_y% (M%) +2 : Next I# 

M_pdylt=M_pdyt+M_pdl% s If I%$>M maxtitel$ (M$) 

Endif : Clr Nmt 

Endif B Endif 
Yt=M_pdy%-M_tof% (M%) : *Adresset=Nm% 
M_pulldown$=M_titel% ® Endif 
M_pulldown!=True : Return 
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Eigener Desktop 


in Pascal plus 


it dem Pascal-Compiler 

Pascal ST plus von CCD 
hat man ein gutes, einfach zu 
bedienendes Programmier- 
werkzeug zur Hand. Besonders 
die GEM-Bibliothek ist den 
Machern gut gelungen. Die 
einfache Handhabung macht 
das Umgehen mit GEM und 
mit seinen Oberflächen zum 
Kinderspiel. Doch wie jedes 
Ding hat Pascal ST plus auch 
seine Schattenseiten. Eine da- 
von ist das Erzeugen und Ver- 
walten eines eigenen DESK- 
TOPs. 


Installation des 
Desktops 


Zuerst baue man einen Dialog 
auf (via New_dialog) und lege 
das Aussehen seiner Einträge 
fest (Zeile 86-94). Da die 
Menüzeile ausgespart wird, ist 
es ratsam, den Wert I als y- 
Koordinate der Prozedur 
New_dialog zu übergeben. 
Will man seinen DESKTOP 
mit einer Rasterung unterle- 
gen, so addiere man als erstes 
einen Eintrag vom Typ 
G_BOX (hier: Unterlage Zeile 
89) hinzu. Bei Unterlassung 
erhält man eine weiße Fläche 
als Hintergrund. Danach kann 
ganz normal der Dialog aufge- 
baut werden. Allerdings soll- 


Wolfram Püchert 


JEDER KENNT INZWISCHEN DAS EINHEITS- 
GRAU DES DESKTOPS VON ATARI. MıT DEN 
ZWEI FOLGENDEN PROZEDUREN KANN SICH 
JEDER PASCAL ST pLus-PROGRAMMIE- 
RER EIN EIGENES DESKTOP IN SEINEN PRO- 


GRAMMEN ERSTELLEN. 


ten nur folgende Typen ver- 
wendet werden: G_BOX, 
G_TEXT, G_BOXTEXT, 
G_IMAGE, G_USERDEF, 
G_STRING, G_ICON. 


Ist der Aufbau erledigt, 
schlägt die Prozedur 
EIGENES_DESKTOP zu, der 
nur der Zeiger auf den Dialog 
übergeben werden muß (Zeile 
20). GEM erkennt ein neues 
Desktop an der Kennung 
DESKTOP=0 (Zeile 21) und 
an dem Parameter WF _- 
NEWDESKTOP=14, die der 
Prozedur Wind_set überge- 
ben werden. Diese Prozedur 
kann zum Glück verwendet 
werden. Die Compilerpro- 
grammierer haben sie so über- 
nommen, wieesim GEM vor- 
gesehen ist, das heißt: Nach 
dem Parameter WF_NEW- 
DESKTOP erwartet GEM 
eine Adresse (4 Byte) - aufge- 
spalten in high und low (je 2 


Bytes) -aufeine Objektstruktur. 
Da Pascal aber nur mit Zeigern 
arbeitet, muß man ein wenig 
tricksen, um an diese Adresse 
heranzukommen. Die varianten 
Records helfen dabei (Zeile 40). 
Man übergebe adresse.z den 
Wert aus dia - intern ist ein 
Zeiger nichts anderes als eine 
Adresse (=long_integer) - und 
in adresse.! steht nun die tat- 
sächliche Adresse. Die Auf- 
spaltung in low und high habe 
ich wieder über einen varianten 
Record vorgenommen (Ach- 
tung: In Version 2.0 muß die 
Compileroption I- gesetzt sein); 
es geht natürlich auch anders. 
Somit sind alle Werte für die 
Wind_set-Prozedur vorhanden. 
Nach dem Aufruf weiß GEM: 
‘Jetzt wird ein neues Desktop 
installiert’. Über die FORM_- 
DIAL-Routine (AES-Nr. 51) 
wird dieses auf den Bildschirm 
gebracht (Zeile 42-45). Fertig 
ist unser Desktop. Die Verwal- 


tung übernimmt jetzt GEM. 
Man kann sich mehrere Desk- 
tops erschaffen und diese ab- 
wechselnd auf die eben be- 
schrieben Weise auf den Bild- 
schirm bringen. Jeweils der 
letzte so übergebene Dialog 
wird als DESKTOP verwaltet. 


Andern 

Manchmal ist es notwendig, 
Teile des Desktops zu verän- 
dern (Status, Text). Genau das 
macht die Prozedur DESK- 
TOP_AENDERN (Zeile 47). 
Die Schwierigkeit dabei ist, 
daß auch zur Zeit durch Fenster 
etc. verdeckte Einträge geän- 
dert werden müssen, ohne daß 
diese Änderung sofort auf dem 
Bildschirm sichtbar ist. Doch 
dazu gleich. Erst zu den Über- 
gabeparametern: Übergeben 
werden Desktopdialogzeiger; 
Kennung des zu ändernden 
Eintrags; der (evtl. leere) Text; 
Schriftart; Ausrichtung; ein 
bool’scher Wert, der angibt, ob 
Text geändert werden soll; 
Breite und Höhe des Eintrags 
in Pixel. Über First_rect und 
Next rect werden die sichtba- 
ren Rechtecke des Desktops 
(Parameter 0) ermittelt, über 
Obj_offset (AES-Nr. 44) die x- 
/y-Koordinaten des zu ändern- 
den Eintrags, über Rect_- 
intersect die Schnittmenge der 
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beiden Flächen (hier sind die 
Höhe und die Breite des Ein- 
trags wichtig). Diese Schnitt- 
menge wird als Ausgabebe- 
reich definiert [Set_clip (Zeile 
76)], und dann wird mit 
Obj_draw (AES-Nr. 42) neu 
gezeichnet. Der Ser_clip-Auf- 
ruf in Zeile 76 verhindert, daß 
ein Eintrag gezeichnet wird, 
der gerade verdeckt ist. Damit 
GEM aber von der Verände- 
rung etwas mitbekommt, muß 


Erstellen eines selbstdefinierten DESKTOP ---} 


Geschrieben von: 


WOLFRAM PüCHERT 
6570 Kaiserslautern 


Wilhelm - Raabe - StraPe 26 -} 


2.12.1987 ST Pascal plus 1.2/2.0 -} 
(c) MAXON Computer GmbH -} 


Program Eigenes _Desktop_erstellen; 


CONST 
TYPE 


{$I GEMCONST} 

{$I GEMTYPE} 

DESKITEM 
unterlage 
texte 
kasten 


deskdia 
deskeintrag 
i 

{$I GEMSUBS} 


Procedure Status_aendern (VAR dia 


BEGIN 


= RECORD 
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raxis 


auf jeden fall der AES-Aufruf 
gemacht werden. Mit Ser_- 
clip(0,0,640,400) (Zeile 78) 
wird als Ausgabebereich der 
ganze Bildschirm wieder frei- 
gegegen. Jetzt steht dem eige- 
nen Desktop hoffentlich nichts 
mehr im Wege.Viel Spaß bei 
der Programmiererei. 


p 


= 
= 
= 
Ei 
m). 


=) 


et 


integer; 
ARRAY[1..10] 
ARRAY[1..10] 
END; 
DIALOG_PTR; 
DESKITEM; 
integer; 


of integer; 
of integer; 


: DIALOG_PTR; 
TREE_INDEX; 
integer); 


eintrag 
status 


: wind_set (DESKTOP, WF_NEWDESKTOP, long_int.i[1], 


long_int.i[2],0,0); 
int_in[0] ö 
int in[1] ; 
int in[3] 640; 
int_in[5] 0; 
int_in[7] 640; 


int_in[2] := 0; 
int_in[4] 
int_in[6] := 0 
int_in[8] 





400; 





400; 





{Form_dial} 


: Aes_call(5l,int in,int_out,addr in,addr_out); 


END; 

Procedure Desktop_aendern (VAR dia 
eintrag 
neuer _text 
schrift 
justierung 
neuer_status 
text_aendern 
ebreite, ehoehe 

x_koor, y_koor, breite, hoehe 


{Prozedur Eigenes_desktop} 
DIALOG_PTR; 
TREE_INDEX; 
STRING; 
integer; 
TE_JUS 

: integer; 

: boolean; 

integer); 

integer; 








int_in : ARRAY[O.. 
int_out : ARRAY[O.. 
addr_in : ARRAY[O. 
addr_out : ARRAY[O.. 


15] of integer; 
45] o£ integer; 


.1] of "char; 


0] o£ “char; 


: WHILE (breite<>0) AND 


bool : boolean; 
BEGIN 
Hide mouse; Begin update; 
First_rect(0,x_koor,y_koor,breite,hoehe); 
(hoehe<>0) DO 
BEGIN 
IF text_aendern THEN 
Set_dtext (dia,eintrag,neuer_text,schrift, 
justierung); 
Status_aendern (dia, eintrag, neuer_status); 
{Koordinaten holen} 
int_in[0] := eintrag; addr_in[0] := dia; 
Aes_call(44,int in,int_out,addr in,addr_out); 
int_in[1] := 0; 
int _in[2] := int out[1]; int_in[3]:=int_out[2]; 
int_in[4] := ebreite; int_in[5] := ehoehe; 
{Rechteckausschnitt einschränken} 
bool:= Rect_intersect (x_koor,y_koor,breite,hoehe, 
int_in[2],int_in[3],int _in[4],int_in[5]); 
Set_clip(int_in[2],int_in[3],int_in[4], 
int_in[5]); 
Aes_call(42,int_in,int_out,addr_in,addr_out); 
Set_clip(0,0,640,400); 
Next_rect (0,x_koor,y_koor,breite,hoehe); 
END; {Solange noch Rechtecke} 
End update; Show_mouse; 
END; {Desktop_aendern} 
BEGIN 
IF Init_gem>=0 THEN 
BEGIN 


39: 
40: 





Obj_setstate (dia, eintrag, NORMAL,true); 
Obj_setstate (dia, eintrag, status,true) 
END; {Prozedur Status_aendern} 
Procedure Eigenes _desktop(VAR dia DIALOG_PTR); 
CONST DESKTOP = 
WF_NEWDESKTOP = 
TYPE ZEIGER_ADRESSE= RECORD 
CASE boolean OF 
true (z:*char); 
false: (l:long integer); 
END; 
RECORD 
CASE boolean OF 
false: (l:long_integer); 
true : (i:PACKED ARRAY 
[1..2] of integer); 


INTEGER_LONG = 


END; 

ZEIGER_ADRESSE; 
INTEGER_LONG; 
ARRAY[0..15] of integer; 
ARRAY[0..45] of integer; 
ARRAY[0..1] of “char; 

: ARRAY[0..0] of “char; 


adresse 
long_int 
int_in 
int_out 
addr_in 
addr_out 








BEGIN 
adresse.z := 


100: 
dia; long_int.l := adresse.l; 101: 


{Arbeitsbereich für neues Desktop} 
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deskdia := New_dialog(21,0,1,80,24); 

WITH deskeintrag DO 

BEGIN 
unterlage 





:= Add_ditem(deskdia,G_BOX,NONE, 0,0, 
80,24,-1,4305); 
Add_ditem(deskdia,G_BOXTEXT, NONE, 
2,2,40,2,3,4480); 
Add_ditem(deskdia,G_BOX,NONE,2, 
10,10,3,-2,4257); 
{Es können weitere Einträge erfolgen} 
Set_dtext (deskdia,texte[1],' Desktop neu !!!', 
SYSTEM_FONT, TE_CENTER) ; 
Obj_setstate (deskdia, kasten[1], SHADOWED, false) ; 
END; 
Eigenes_desktop (deskdia); 
i := Do_alert('[1][ Sieh es Dir an !! | |] 
[ weiter ]',1); 
Desktop_aendern (deskdia, deskeintrag.texte[l], 
‘Neuer Text !!', 
SYSTEM_FONT, TE_CENTER, NORMAL, 
true, 40*8,2*16); 
Do_alert('[1][ Sieh es Dir an !! | |] 
[ weiter ]',1); 


texte[l] := 


kasten[1] := 


i := 


Exit_gem; 


END; 


as Programm hat viele 

Anwendungsmöglich- 
keiten. Es kann sowohl von 
Schülern, Studenten und weni- 
ger versierten Anwendern, als 
auch von Fachleuten in den un- 
terschiedlichsten Branchen 
eingesetzt werden und unter- 
stützt die verschiedensten Re- 
chenprobleme des Alltags. Die 
Bedienung des Interpreters ist 
dem des im Direktmodus lau- 
fenden GFA-BASIC sehr ähn- 
lich. Es können alle Recheno- 
perationen, die im Startup- 
Menue angegeben sind, ver- 
wendet werden, z.B *,-,+ usw. 
Häufig vorkommende Zahlen 
in der Mathematik sind eben- 
falls integriert, wie z.B “pi” 
und “e”. Die aufgeführten Son- 
derfunktionen “sin,cos,abs...” 
können wie in der linken Reihe 
angegeben benützt werden. 
Hier einige Beispiele. 


Diese Terme können wie folgt 
eingegeben werden: 


1.) OK->1+1-6 oder 
OK->(1+1)-6 oder 
OK->((1+1)-+6) 

2.) OK->2/9+6 oder 
OK->(2/9)+6 oder 
OK->((2/9)+6) 

3.) OK->2*9+45 oder 
OK->(2*9)+(4°5) oder 
OK->((2*9)+4X5) 


Der Interpreter beherrscht 
auch ohne Klammerrechnung 
die Regeln der Mathematik. 
Natürlich kann man sie durch 
Setzen von Klammern umge- 
hen. 
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ingabe von 
Termen 


Philip S. Bauer 


DiEsESs PROGRAMM IST IN DER LAGE, 
EINEN VON DER TASTATUR EINGEGEBENEN 
MATHEMATISCHEN TERM ZU ANALYSIEREN 
UND ZU BERECHNEN. ES BEHERRSCHT DIE 
ADDITION, DIE SUBTRAKTION, DIE KLAM- 
MERRECHNUNG, DIE POTENZRECHNUNG, 
DIE MULTIPLIKATION, DIE DIVISION UND 
VERARBEITET EINFACHE KOMPLEXE ZAH- 
LEN. WEITER KANN ES TRIGONOMETRISCHE 
FUNKTIONEN BERECHNEN. DIESER PAR- 
SER SETZT DIE EINGEGEBENEN KOMPO- 
NENTEN SEHR SCHNELL ZUM GEWÜNSCH- 


Es werden weiterhin die Vor- 
zeichen berücksichtigt, die im 
Term vorkommen z.B : 


OK->--5+6 oder 
OK->5+-8 


u.s.w siehe Beispiel oben. Ei- 
nige Beispiele zu den Sonder- 
funktionen. Der sin(45) soll 
berechnet werden: 


1.) OK->s(45) oder 
OK->5s45 (Ergebnis in Grad) 


Alle anderen Sonderfunktio- 
nen werden wie bei “sin” ein- 
gegeben, nur mit dem ersten 
kleinen Buchstaben. 


2.) OK->c(80)OK->t(80) 
OK->w(6) usw. 


Sonderfunktionen 
kombinieren 


Das ist aber noch nicht alles, 
was das Programm kann! Alle 
Sonderfunktionen können na- 
türlich auch beliebig miteinan- 
der kombiniert werden: 


z.B: OK->a(c(45)1245(45)*2) 
USW, 


Der Interpreter prüft, ob ein 
Term richtig eingegeben ist, 
indem er einen kompletten 
“Syntax-Check” durchführt. 
Auftretende Fehler werden 
größtenteils abgefangen. 


z.B: OK->-*+ oder 
OK->1/0 oder 
OK->((((((((1+6) usw. 


Es können auch Variabeln de- 
finiert werden, und zwar alle 
GROSSBUCHSTABEN von 
A-Z, das sieht dann so aus : 


OK->A=5 oder 
OK->D=s(7)+5*9 oder 
OK->L=d(7) usw. 


Eine weitere Attraktion weist 
der Parser auf: Er ist in der 
Lage, einfache komplexe Zah- 
len zu verarbeiten. Es ist mög- 
lich, eine negative Wurzel oder 
einen negativen Logarithmus 
zu berechnen. 


Beispiel: es soll die 2.te Wurzel 
aus (-8) berechnet werden 


OK->w(-8) oder 
OK->(-8)*(1/2) oder 
OK->-8X(1/2) 


Es erscheint eine komplexe 
Lösung, die aus einer imaginä- 
ren und reellen Lösung besteht. 
Es soll eine 8. Wurzel aus einer 
negativen Zahl berechnet wer- 
den. 


Das sieht dann so aus: 
OK->(-5)X1(1/8) usw. 


Es können alle negativen Zah- 
len mit allen Elementen der 
natürlichen Zahlen potenziert 
werden: Vorsicht: den Expo- 
nenten nicht als Dezimalzahl 
schreiben, (-8)X(0.5) z.B. führt 
zum Überlauf! 


OK->(-21)X(5/16) usw. 
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Eine Logarithmierung einer 

negativen Zahl ist ebenfalls 

möglich, das sieht dann so aus: 
OK->I(-9) oder 


OK-> d (-9) oder 
OK->d-9. 
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Klammern sind in diesem Fall 
auch nicht nötig. Es erscheinen 
komplexe Lösungen von zl - 
zn, die aus imaginären und 
reellen Lösungen bestehen. Ich 





hoffe, daß einige Anwender 
dieses Programm verwerten 
können. Mit einem kleinen Tip 
möchte ich diese Dokumenta- 
tion zu meinem Programm 


schließen: Der Parser-Inter- 
preter macht sich gut in einem 
Tabellenkalkulations-Pro- 


gramm! 


'‘ Parse Interpreter written by P.S. Bauer, 
Romberstr.8 , 5000 Köln 41 

' Version 4.00 
(ce) MAXON Computer GmbH 


DIM var$ (60) 
SETCOLOR 0,0 
Do ! Menu Steuerung 
@text 
v=INP (2) ! Tastaturklick 
IF v=27 ! ESC Taste 
SETCOLOR 0,1 
END 
ENDIF 
CLS ! Bild Löschen 
DO 
ADD pose,3 Icon Lage OK=> 
IF pose>=24 ! Letzte Zeile 
pose=3 ! 3 Addieren (Zeile+3) 
CLS ! Bild Löschen 
IF LEN(re$)>0 
PRINT AT(1,2+pose); ! Icon setzen 
PRINT "OK >" 
PRINT AT (5, 2+pose) ;unt$ ! Term 
PRINT re$ ! Ergebnis 
falls schon vorhanden 
pose=poset3 
ENDIF 
ENDIF 
@eingabe ! Zur Hauptschleife 
EXIT IF ASC(re$)=27! Esc 
LOOP 
CLR re$ ! Ergebnis Löschen 
pose=0 ! zeile =0 
CLS 
LOOP 
PROCEDURE eingabe ! Hauptprozedur 
GRAPHMODE 4 
DEFTEXT 1,0,0,13 
TEXT 5,15," 
TEXT 5,31," 
GRAPHMODE O0 
ERASE sx$() 
DIM sx$ (80) 
art: 
DEFFILL 1,2,8 ! Daten für falsche Syntax 
tabet=0 ! Syntax 
Flag=0 
sgo: 
DATA na), n(au,n(/m, en /lr tea", 
Aa, "ac" Neten, nicH“ 
DATA Li EVA 3 Au 2 u 


Bitte Term Eingeben 
mit Esc zurück 


!Feld vorbereiten 


DATA . D . . PR 
DATA 
DATA 


DATA 
"as","dc", 
DATAURIEN, njan, a] /w, pe nn, nn Ryın, Tin, 
"lan, "lan, "Io", "Ien, "ie" 
DATA "Ir", "ld", "jan, njan 
PRINT AT(1,2+pose); ! Icon positonieren 
PRINT "OK >" 
PRINT AT(5,2+pose); 
FORM INPUT 40,re$ ! Term Eingeben 
unt$=re$ ! Unt$=term 
IF INSIR(l,re$,"=")>0! Variablen Untersuchen 
IF LEN(re$)>=1 AND ASC(re$)<65 OR ASC(re$)>90 
tabet=1 
ENDIF ! Var zuordnen? 
1i0%=INSTR(1,re$,"=")+1 
IF INSTR(1,re$,"=")>0 AND ASC(re$)>=65 AND 
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ASC (re$)<=90 
IF LEN (STR$ (VAL (MID$ (re$, 1io$%, 
LEN (re$)))))=LEN(MID$ (re$,1lio$%, 
LEN(re$))) AND VAL(MID$ (re$,1io$%, 
LEN (re$)))>O 
@variable 
re$=MID$ (re$, 1io%,LEN(re$)) ! String 
erneuern 
ELSE 
varflagt=1 ! Variable Flag Setzen 
varterm$=MID$ (re$,0,1io#-1) 
! Termvariable Bestimmen 
re$=MID$ (re$,l1io%,LEN(re$)) ! Term 
Retten wenn Var 
Vorhanden 
ENDIF 
ELSE 
tabe#t=1 ! oh oh Fehler 
ENDIF 
ENDIF 
IF ASC (re$)<>27 ! ESC untersuchen 
IF LEN(re$)>0 ! Exp und E unterschieden 
CLR anzklam$t, anzklam2% 
IF INSTR(0,re$,"E")>O0 
exop$=MID$ (re$, INSTR(O,re$,"E")-1,1) 
ENDIF 
FOR varwo%=1 TO LEN(re$) 
FOR wova%=ASC("A")-65 TO ASC("Z2")-65 
obvar#%=INSTR (varwo$%, re$, CHR$ (wova%+ 
65)) !wo ist eine variable ? 
IF INSTR(0,re$,"E")>O AND 
ASC (exop$)>ASC("0") AND 
ASC (exop$)<=ASC ("9") 
obvar+=0 
ENDIF 
IF obvar$>0 '! Wert in Var einsetzen 
re$=MID$ (re$, 0,obvar%-1)+var$ (wova#)+ 
MID$ (re$,obvar%+1,LEN(re$)) 
ENDIF 
NEXT wovat 
NEXT varwo% 
CLR lop$ 
pei%$=INSTR (wobin%,re$,"pi") '!'wo ist pi ? 
IF peit%>0 
re$=MID$ (re$,0,pei%-1)+STR$ (PI)+MID$ (re$, 
pei%+2,LEN(re$)) 
ENDIF 
expo%=INSTR (wobin%,re$,"e") ! wo ist e 
IF expo%>0 
re$=MID$ (re$,0,expot-1)+STR$ (EXP (1))+ 
MID$ (re$, expot+1,LEN(re$)) 
ENDIF 
IF INSTR(l,re$," ")>0 ! Leerstellen suchen 
FOR spce%$=1 TO LEN(re$) 
ase$=MID$ (re$,spce#%,1) 
IF ase$<>CHR$ (32) ! selbe entfernen 
£$=f$tase$ 
ENDIF 
NEXT spce% 
re$=f$ 
ENDIF 
FOR synklamt=0 TO LEN(re$) 
! Anzahl Klammern Überprüfen 
IF MID$ (re$, synklam&+1,1)="(" ER 
ADD anzklam#,1 !( ist gefunden 
ENDIF 
IF MID$(re$,LEN(re$)-synklam$,1)=")" ı) 
ADD anzklam2%,1 !) ist gefunden 
ENDIF 
NEXT synklam$ 
IF anzklam%<>anzklam2%! Klammer vergessen ? 
tabet=1 ! Syntax Flag=1 
ENDIF 
IF LEN(re$)>0 ! Syntax prüfen 
FOR pol$=1 TO LEN(re$) 
polx#=ASC (MID$ (re$,pol%,1)) 





! String aufspalten 
IF polx%>57 OR polxt<=36 AND polx%<>94 
AND polx#<>46 AND polx%<>115 
polx%<>99 AND polx%<>116 
polx%<>119 AND polx%<>105 
Polx%$<>97 AND polx%<>100 
polx%<>108 AND polx3<>69 
tabet=1 ! Syntaxfehler Flag=1 
ENDIF 
EXIT IF polx%>57 OR polxt<=36 AND 
polx#<>94 AND polx#<>46 AND 
polx%<>115 AND polx#<>99 AND 
polx#<>116 AND polx#<>119 AND 
polx%<>105 AND polx%<>97 AND 
Polx%<>100 AND polx%<>108 AND 
Polxs<>69 
NEXT pol% 
RESTORE sgqo 
FOR g=0 TO 107 ! Syntaxdata Einlesen 
READ syntax$ 
IF INSTR(1,re$,syntax$)>0 
IF syntax$<>"/0" 
tabet=1 ! Falls Fehler Syntax 
Flag=1 
ENDIF 
ENDIF 
EXIT IF INSTR(1,re$,syntax$)>0 
NEXT g 
IF tabest=1 ! Syntax Anzeigen 
PRINT "Syntax Fehler " 
ADD pose,3 ! nächste Position 
GOTO nrt ! Neu eingeben 
ENDIF 
@fidel 
IF INSTR(1,re$,")")>0 AND INSTR(1,re$, 
ER >O ! Klammer erkennen 
hint%=LEN (re$) 
e$=re$ 
Do 
IF INSTR(1,c$,"(")>0 AND INSTR(1,c$, 
")")>0 ! Klammer 
auswerten 
suche#=LEN (c$) 
Do ! Klammer von 
Innen nach Aussen 
SUB suche#,1 
hint$=INSTR (suchet,c$,"(") 
EXIT IF hint%>0 
LOOP 
CLR suche# 
tor&=INSTR (hint%+1,c$,")") 

! ) Entfernen 
re$=MID$ (c$,hint%+1,tor%) 
tor2%=INSTR(1,re$,")") 

! ( Entfernen 
re$=MID$ (re$,1,tor2%-1) 

! String ohne () 

ENDIF 
@fidel 
@num 
e$=MID$ (c$,0,hint%-1)+ 
SPACE$ (LEN (re$) )+MID$ (c$, 
tor%+1,LEN(c$)) 
MID$ (c$,hint%,LEN (re$))=re$ 
! String zusammenbauen 
EXIT IF INSTR(1,c$,")")=0 AND 
INSTR(1,c$,"(")=0 
LOOP 
re$=c$ !String retten 
ENDIF 
@efidel 
@num 
DEFFILL 1,2,8 
IF varflag%=1 ! Termflag abfrage 
var$ (ASC (varterm$) -65)=re$ 
! Termvar setzen 
varflag$=0 ! Flag auf Null 
ENDIF 
IF nuuld$=0 AND llog$=0 
PRINT re$ ! und ausgeben 
ENDIF 
CLR nuuld$, l1log$ 
ENDIF 
ENDIF 
ENDIF 
DEFFILL 1,2,8 


rogrammier 


P-# 


CLR sc$,rb$ 
ERASE sx$() 
RETURN 
PROCEDURE num ! Hier werden die 
Rechnungen ausgeführt 
tabe$=0 
Do 
EXIT IF INSTR(l,re$,"i")=0 ! Integer 
ADD w,1 
IF sx$(w)= ! ist i dabei 
eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$,"i") ! wo ist i 
we=1+LEN (sx$ (w+1)) 
sx$ (w-1)=STR$ (INT (VAL (sx$ (w+1)))) 
! Ausführen 
@ordner 
@fidel 
CLR w 
ENDIF 
LOOP 
Do 
EXIT IF INSTR(1,re$,"a")=0 ! Absolut 
ADD w,1 
IF sx$ (w)="a" ! ist a dabei 
eg=LEN (sx$ (w+1)) 
isr=INSTR (1,re$,"a" ! wo ist i 
we=1+LEN (sx$ (w+1)) 
sx$ (w-1)=STR$ (ABS (VAL (sx$ (w+1)))) 
! Ausführen 
@ordner 
@fidel 
CLR w 
ENDIF 
LOOoP 
Do 
EXIT IF INSTR(1,re$,"1")=0 ! Logarithmus e 
ADD w,1 
IF sx$(w)="1" 
eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$,"1") 
we=1+LEN (sx$ (w+1)) 
IF VAL (sx$ (w+1))<=0 
nulllog$=1 
@komplex 
ELSE 
sx$ (w-1)=STR$ (LOG (VAL (sx$ (w+1)))) 
@ordner 
@fidel 
ENDIF 
CLR w 
ENDIF 
EXIT IF nulllog$=1 
LOOP 
CLR nulllog# 
Do 
EXIT IF INSTR(l,re$,"d")=0 ! Logaritmus 10 
ADD w,1 
IF sx$(w)="d" 
eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$,"d") 
we=1+LEN (sx$ (w+1)) 
IF VAL(sx$ (w+1))<=0 
nulllog$=1 
@komplex 
ELSE 
sx$ (w-1)=STR$ (LOG10 (VAL (sx$ (w+1)))) 
@ordner 
@fidel 
ENDIF 
CLR w 
ENDIF 
EXIT IF nulllog$=1 
LOOoP 
CLR nulllog* 
Do 
EXIT IF INSTR(1,re$,"s")=0 
ADD w,1 
IF sx$ (w)="s" 
eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$,"s") 
we=1+LEN (sx$ (w+1)) 
sx$ (w-1)=STR$ (SIN (VAL (sx$ (w+1))*PI1/180)) 
@ordner 
efidel 
CLR w 
ENDIF 
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LOOP 
Do 
EXIT IF INSTR(l1,re$,"c")=0 ! Cosinus 
ADD w,1 
IF sx$ (w)="c" 
eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$,"c") 
we=1+LEN (sx$ (w+1)) 
sx$ (w-1)=STR$ (COS (VAL (sx$ (w+1)) *PI/180)) 
@ordner 
@fidel 
CLRw 
ENDIF 
LOOoP 
Do 
EXIT IF INSTR(l1,re$,"t")=0 ! Tangens 
ADD w,1 
IF sx$ (w)="t" 
eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$,"t") 
we=1+LEN (sx$ (w+1)) 
sx$ (w-1)=STR$ (TAN (VAL (sx$ (w+1))*PI/180)) 
@ordner 
@fidel 
CLR w 
ENDIF 
LOOP 
po 
EXIT IF INSTR(l,re$,"w")=0 ' Wurzelziehen 
ADD w,1 
IF sx$ (w)="w" 
eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$, "w" 
we=1+LEN (sx$ (w+1)) 
IF VAL(sx$ (w+1))<O 
nullsgrs=1 
wat=2 
@komplex 
ELSE 
8x$ (w-1)=STR$ (SOR (VAL (sx$ (w+1)))) 
@ordner 
@fidel 
ENDIF 
CLR w 
ENDIF 
EXIT IF nullsqr#=1 
LOOoP 
CLR nullsgr& 
Do 
EXIT IF INSTR(l,re$,"*")=0 ! Potenzieren 
ADD w,1 
IF sx$ (w)="*" 
ad=LEN (sx$ (w-1)) 
eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$,"*") 
we=LEN (sx$ (w-1))+1+LEN (sx$ (w+1)) 
minuss=0 
IF VAL(sx$(w-1))<O AND INT(VAL(sx$ (w+ 
1)))<>VAL(sx$ (w+1)) 
nullsq2%=1 
wat=sanzzeig* 
@komplex 
ELSE 
IF VAL(sx$ (w-1))<0 AND tor2%=0 
! negativ erkennen 
minust=1 
sx$ (w-1)=STR$ (VAL (sx$ (w-1)) *-1) 
ENDIF 
sx$ (w-1)=STR$ (VAL (sx$ (w-1)) * (VAL (sx$ (w+ 
1)))) 
IF minuss=1 
sx$ (w-1)=STR$ (VAL (sx$ (w-1)) *-1) 
ENDIF 
@ordner 
@fidel 
ENDIF 
CLR w 
ENDIF 
EXIT IF nullsq2$=1 
LOOP 
CLR nullsq2% 
Do 
EXIT IF INSTR(1,re$,"/")=0 
ADD w,1 
IF sx$(w)="/" 
ad=LEN (sx$ (w-1)) 


! Teilen 
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raxis 


eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$,"/") 
we=LEN (sx$ (w-1))+1+LEN (sx$ (w+1)) 
IF VAL(sx$ (w+1))<>0 
anzzeig%=VAL(sx$ (w+1)) 
sx$ (w-1)=STR$ (VAL (sx$ (w-1)) / (VAL (sx$ (w+ 
1)))) 
@ordner 
@fidel 
ELSE 
GOSUB null 
ENDIF 
CLR w 
ENDIF 
EXIT IF nulldivt=1 
LOOP 
CLR nulldiv# 
Do 
EXIT IF INSTR(1,re$,"*")=0 
ADD w,1 
IF sx$ (w)="*" 
ad=LEN (sx$ (w-1)) 
eg=LEN (sx$ (w+1)) 
isr=INSTR(1,re$,"*") 
we=LEN (sx$ (w-1)) +1+LEN (sx$ (w+1)) 
sx$ (w-1)=STR$ (VAL (sx$ (w-1)) * (VAL (sx$ (w+ 
1)))) 


! Multiplizieren 


@ordner 
@fidel 
CLR w 
ENDIF 
LOoP 
Do 
EXIT IF INSTR(1,re$," 
EXIT IF INSTR(1,rb$, 
ADD w,1 
IF sx$ (w)="-" 
ad=LEN (sx$ (w-1)) 
@eg=LEN (sx$ (w+1)) 
isr=INSTR (1,rb$, "-" 
IF VAL(sx$ (w-1))<o 
ADD isr,1 
ENDIF 
we=LEN (sx$ (w-1) )+1+LEN (sx$ (w+1)) 
sx$ (w-1)=STR$ (VAL (sx$ (w-1))- (VAL (sx$ (w+ 
1)))) 


Subtrahieren 
Negation ? 


@ordner 
@fidel 
CLR w 
ENDIF 
Loop 
Do 
EXIT IF INSTR(1,re$," 
EXIT IF INSTR(1,rb$, 
ADD w,1 
IF sx$ (w)="+" 
ad=LEN (sx$ (w-1)) 
@g=LEN (sx$ (w+1)) 
isr=INSTR (1,rb$,"+") 
IF VAL(sx$ (w-1))<O 
ADD isr,1 
ENDIF 
we=LEN (sx$ (w-1) )+1+LEN (sx$ (w+1)) 
sx$ (w-1)=STR$ (VAL (sx$ (w-1))+ (VAL (sx$ (w+ 
1)))) 


! Addieren 
! positiv ? 


@ordner 
efidel 
CLR w 
ENDIF 
LOOP 


RETURN 
PROCEDURE null 


nulldivs=1 
PRINT "Division durch Null " 
nuuld#=1 


RETURN 
PROCEDURE ordner ! String wieder zusammenbauen 


leh=LEN (sx$ (w-1)) 

ze$=MID$ (re$,0, (isr-ad-1))+SPACE$ (leh)+ 
MID$ (re$,isr+teg+1,LEN(re$)) 

MID$ (re$, (isr-ad) ‚,leh)=sx$ (w-1) 

CLR ad 


RETURN 
PROCEDURE fidel 


! Zahlen und Rechenoperationen 
trennen 


CLR rb$ y 





Do 
ADD s,1 
anf$=MID$ (re$,s,1) 
EXIT IF LEN (anf$)<=0 
ADD e,1 
syn$=ASC (MID$ (re$,s,1)) 
IF MID$ (re$,s,1)="-" ! Negation erkennen 
sn1%=ASC (MID$ (re$,s-1,1)) 

IF sn1%<=45 OR sn1%=47 OR sn1%=99 OR 
snl%=116 OR sn1%=115 OR sn1%=119 OR 
sn1%=97 OR sn1%=105 OR sn1%=100 OR 
sn1%=108 

syn%=48 ! Programm Syntax ? 
ENDIF 
ENDIF 
IF syn#>47 AND syn#<>94 AND synt<>46 AND 
syn%<>115 AND syn%<>99 AND syn%<>116 AND 
syn%<>119 AND syn%<>97 AND 
syn%<>105 AND syn%<>100 AND syn%<>108 
Do 
ADD s,1 
synt&=ASC (MID$ (re$,s,1)) 
IF MID$(re$,s,1)="--" ! Negativ erkennen 
sn%=ASC (MID$ (re$,s-1,1)) 
IF sn%<=45 OR sn%=47 
synt4=48 
ENDIF 
ENDIF 
IF MID$ (re$,s,2)="E+" OR MID$(re$,s, 
2)="E-" ! Exponent erkennen 
expot=1 
synt%=48 
ENDIF 
EXIT IF synt%<=45 OR synt%=47 OR 
synt%=94 OR synt%=115 OR 
syntt=99 OR syntt=116 
EXIT IF synt%=119 OR syntt=97 OR 
synt%=105 OR synt*=100 OR 
syntt=108 
IF expot=1 ! Exponent setzten 
anf$=anf$+MID$ (re$,s,2) 
! mit Exponent 
ADD s,1 
ELSE 
anf$=anf$+MID$ (re$,s,1) 
! Ohne Exponent 
ENDIF 
expo%=0 
LooP 
SUB s,1 
ENDIF 
sx$ (e)=anf$ ! Aufspalten 
as%$=INSTR (1,sx$(e),"E") 
wisch$=sx$ (e) 
IF as%>0 ! Exponent ? 
MID$ (wisch$ ,, as$+1,1)="0" 
ENDIF 
IF VAL (wisch$)>=0 
rb$=rb$+wisch$ ! Hilfstring bilden 
ELSE 
IF as#>0 
wisch$=STR$ (ABS (VAL (wisch$))) 
MID$ (wisch$, as%,1)="0" 
rb$=rb$+wisch$ 
ELSE 
rb$=rb$+STR$ (ABS (VAL (wisch$))) 
! Hilfstring fertig 
ENDIF 
ENDIF 
CLR anf$ 
LOOP 
CLR s,e 


rogrammier 


IP: 


RETURN ! Aufspaltung beendet 
PROCEDURE text ! Info für Benutzer 
GRAPHMODE 4 
DEFTEXT 1,0,0,13 
TEXT 150,50," Parse-Interpreter written by 
P.Bauer B 
TEXT 150,66," Rombergstr.8, 5000 Köln 41. 
Vers: 4.00 " 
GRAPHMODE 0 
TEXT 150,110," Folgende Rechenoperationen sind 
möglich:" 
TEXT 148,140," Standardfunktionen :" 
TEXT 148,160, l EEE IHRE] 
sh” 
TEXT 148,180," Variablen = Alle GroPbuchstaben 
von A->2" 
TEXT 148,200," Sonderfunktionen :" 
TEXT 450,360," Taste Drücken !!" 
TEXT 450,376," Esc =End" 
RESTORE 44 
FOR bn#t=1 TO 9 
READ hel$ 
TEXT 280, 210+(bn%*17),hel$ 
NEXT bn% 
44: 
DATA s()=Sin(),c()=Cos(),t()=Tan(),d(+-)=Log(), 
1(+-)=Ln() 
DATA w(+-)=Sgr(),i()=Int(),a()=Abs(),e=Exp (1) 
RETURN 
PROCEDURE variable 
vait=INSTR(1,re$, )-1 !wo ist = ? 
var$ (ASC (MID$ (re$,0,vai%))-65)=MID$ (re$, vait+2, 
LEN (re$)) ! Zuweisungs var (z.B. A=) 
RETURN 
PROCEDURE komplex 
DIM z(100),h(100) 
DEFNUM 5 
IF nulllog®=1 
PRINT "z=In("; (ABS (VAL (sx$ (w+1))));")+i* 
(";CHR$ (227) ;"+2*k* ";CHR$ (227); ") 
(für k ";CHR$(238);" G)" 
llogt=1 
ENDIF 
IF nullsgr%=1 OR nullsq2%=1 
nuuldt=1 
Pose=pose+wa% 
FOR komt=1 TO wa% 
IF nullsq2%=1 
a= (ABS (VAL (sx$ (w-1))))* (1/wa$%) 
ELSE 
a=(ABS (VAL(sx$ (w+1))))”* (1/wa®) 
ENDIF 
al=180/wa# 
umr= (al+(((komt-1)*(360/wa%)))) 
z (kom$)=a* (COS (umr*PI/180)) 
h(kom$)=a* (SIN(umr*P1/180)) 
IF ABS ((z(kom$)))<1.0E-07 
z (komt)=0 
ELSE 
IF ABS((h(komt)))<1.0E-07 
h(koms$)=0 
ENDIF 
ENDIF 
ADD pos,1 
PRINT ;"z";kom$;"= ";z(komt);" + 
(kom&) ;"*i" 





NEXT kom% 
ENDIF 
DEFNUM 12 
ERASE h() 
ERASE z() 

RETURN 
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Phobia 

Running Man (dt) 
Spherical 

Indiana Jones 

- The last Crusade 
Xenon il Megablast 


59,%0 
63,90 
59,0 


54,%0 
69,0 


65,%0 
65,90 
65,9%  Archipelagos 

H .; Rick Dangerous 


Sport 


Microprose Soccer 8,0 
Buffalo Bill's Rodeo 65,90 


Sampler 


Triad Il 
- Menace, Baal, Tetris 69,90 


8% 
65,0 


Blood Money 
Gemini Wing 
Targhan 


Happy Games | 


Jetzt wirds ernst ! 


BE 
King's Quest 1/2/3 


65.00 
84,90 
72.90 
55,90 
72,0 
72,%0 
55,0 
65,0 
65,90 


Police Quest 1 
Police Quest 2 
Space Quest 1 
Space Quest 2 55,90 
Space Quest 3 72,% 


Wir haben auch sämtliche 
Lösungen zu diesen 
Sierra-Spielen: DM 12,- je 
Lösung, alle komplett, im 
Ringbuchordner DM 79,- | 
Außerdem Lösung zu Kult - 


DM 12... 
= 


BECKERtext ST 20 
die schöne Textverarbeitung, 
die Schlagzeilen macht. 


298,00 
BECKERpage ST 20 


Desktop Publishing, in der 
neuen Version 2.0, mit noch 
mehr Komfort. 398,00 


BECKERcalc/3 ST 


Tabellenkalkulations- 
Programm 


498,00 
BECKERecad ST 1.2 

Professionelles CAD-System 
498,00 


Bitte forderen Sie unseren kostenlosen Katalog (enthält auch 
PD-Software) unter Angabe Ihres Computers an. 


Die Lieferung erfolgt per 
Nachnahme, zuzügl. DM 
6,50 (Ausland DM 10,-) 
oder per Vorauskasse, 


zZ 


Red Heat 





Giants 


73,90 





DM 6,-). 


Beselen können Sie bei: 


Gehäuse 
330x360x55 (Monitor-Untersatz, Mega-ST-I Maße). für 
Hard- und/oderFloppydisks. 


Gehäuse 179,- 

mit Netzteil 

SCSI-Hostadapter 248, — 

mit Software (s. Spalte rechts) 

Lüfter 60x60 25,- 

HD-Netzteil 50 W 99,- 

Wechselplatten 

Wechseiplattenlaufwerk 2198,- 
—25ms — SCSI- ohne Medium 

Wechselplatte 275 ,- 

44MB Medium 

SD44E-S 


Subsystem mit herausgeführtem SCSI-Bus 


LACOM 


SD44E 2498 ,- 
Subsystem für ATARI ST - Interner SCSI-Adapter, 
gepufferter DMA out, super-Software (siehe Spalte 
rechts) 


Fordern Sie unser Gratis-Info an, Händlerpreisliste 
gegen Gewerbenachweis. 


ATARI-ST Festplatten Serie SD 


Hardware: 
SCSI-System (integrierter Hostadapter) 
durchgeschliffener, gepufferter DMA, 


Superleise Lüftung (Speciallüfter) 


‚Autopark — Hardwaremäßig 
Aufrüstfähig (bis 200 MB) 
Thermo-geregelter Lüfter 
SCSI-Output 


Ilias Lazaridis - Emscherstr. 45 - 4200 Oberhausen 1 
Tel.: (0208) 655051 - Btx 0208654390 - FAX (0208) 654390 


zuzügl. DM 4,- (Ausland 07252/86699 





Software: 
Bis zu 14 Partitions installierbar 


Wählbare Bootpartition (aus 16) 
‚Abschaltbarer Schreibschutz 
R-TOS/ALADIN/PC-DITTO-fähig 
Passwort-Funktion (Datenschutz) 
Abstellbares Datenverify 


Lieferbar im nebenstehenden Gehäuse oder im 
19" 2HE Rackgehäuse (+ 100,- DM) 


‚Auch mit herausgeführter SCSI-Schnittstelle 
lieferbar (Subsystem für Applerechner, diverse 
Sampler etc.) 


Kapazitäten: 32-202 MB 
Preise: ab 1398 ,„- DM 
85MB 28ms 2098 ‚- DM 


32 MB / 28 ms: 1398, — 
48 MB / 28 ms: 1548, — 
85 MB / 28 ms: 1898, — 
Weitere Versionen lieferbar 
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Komfortables 


GRUNDLAGEN 


Dialog-Handling 
in GFA-BASIC 3.0 


Die AES-Funktion FORM_DO hat 
ihre Licht- und Schattenseiten. Einer- 
seits erspart sie dem Programmierer 
eine Menge Arbeit, übernimmt sie 
doch die komplette Verwaltung einer 
Dialogbox, andererseits aber bietet sie 
dem Anwender wenig Komfort bei der 
Bedienung. Außerdem wird wohl so 
mancher nach einem FORM_DO-Auf- 
ruf verzweifelt zum Reset-Taster ge- 
griffen haben, weil durch ein vergesse- 
nes Exit-Objekt oder einen falsch über- 
gebenen Objektindex der Rechner mal 
wieder im Halbleiter-Nirwana ver- 
schwunden war. 


Die Problemstellung war klar. Eine eige- 
ne FORM_DO-Funktion mit völligneuen 
Eigenschaften mußte her. Sie sollte ein- 
fach anstelle der gleichnamigen AES- 
Routine einzusetzen sein und zusätzliche 
Funktionen, vor allem zur komfortablen 
Positionierung des Cursors, besitzen. 
Außerdem sollten sämtliche Objekte ei- 
ner Dialogbox alternativ auch über die 
Tastatur bedient werden können - eine 
nützliche Hilfe für fortgeschrittene An- 
wender eines Programms, die sich bei 
Pulldown-Menüs bereits durchzusetzen 
beginnt. 


Das Ergebnis dieser Bemü- 
hungen sind die Extended 
FORM_DO-Funktion und 
der KEY RESOURCE 
EDITOR, mit dessen Hilfe 
man die Tastenbelegungen 
der einzelnen Objekte einer 
Resource erzeugen kann. 
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Bild 1 


SHIFT/CURSOR LEFT 
SHIFT/CURSOR RIGHT 


Extended FORM_DO 


Kommen wir zunächst zur Beschreibung 
der neuen FORM_DO-Routine. Sie be- 
sitzt sämtliche Eigenschaften der norma- 
len FORM_DO-Funktion. Zusätzlich 
jedoch sind einige weitere Steuercodes 
standardmäßigeingebaut (Bild 1). Außer- 
dem läßt sich der Cursor jetzt mit der 
Maus zeichengenau in Textfelder setzen 
und landet nicht wie gewohnt immer am 
rechten Ende. Auch Dialogboxen ohne 
Exit-Objekt werden verwaltet. 


Die wohl interessanteste Eigenschaft ist 
aber die Möglichkeit, sämtliche Objekte 
einer Dialogbox wahlweise auch über die 
Tastatur bedienen zu können. Das Prinzip 
ist eigentlich recht simpel: Einem Objekt 
einer Dialogbox, beispielsweise einem 
Radiobutton, wird eine bestimmte Taste, 
z.B. <Fl>, zugeordnet. Bei Druck auf 
<Fl1> verhält sich die Dialogbox genauso, 
als wäre der entsprechende Radiobutton 
angeklickt worden - er wird selektiert. 
Prinzipiell läßt sich dies für jedes beliebi- 
ge Objekt realisieren. Eine Standardein- 
stellung wäre etwa die Belegung des Can- 
cel/Abbruch-Buttons, den man in fast 
jeder Dialogbox findet, mit der Taste 
<Undo>. Eine solche, wenn auch die ein- 


Standard-Steuertasten von EXTENDED FORM_DO 
SHIFT/CURSOR UP, HOME 


SHIFT/CURSOR DOWN, SHIFT/HOME Cursor in letztes Eingabefeld 





Cursor in erstes Eingabefeld 


Cursor an Anfang des Eingabefeldes 
Cursor ans Ende des Eingabefeldes 


zige, Tastaturbelegung ist ja bereits im 
AES implementiert, und zwar in Gestalt 
des Default-Objektes, das wahlweise mit 
der Maus oder der Return- bzw. Enter- 
Taste angewählt werden kann. 


Wie funktioniert nun die Zuordnung einer 
Taste zu einem beliebigen Objekt? Dazu 
müßte man am besten den Code der Taste 
in der Objektstruktur des betreffenden 
Objekts innerhalb der Resource unter- 
bringen, um unnötigen Speicherbedarf, 
etwa durch eine zusätzliche Datei, zu 
vermeiden. Betrachtet man die Objekt- 
struktur näher, dann bleiben nur zwei 
Möglichkeiten, nämlich OB_STATE und 
OB_FLAGS, denn dies sind die einzigen 
Objektinformationen, die vom AES bit- 
weise ausgewertet werden, und nur dort 
können wir den Tastaturcode “einpflan- 
zen”, ohne daß die interne Struktur der 
Resource oder das Objekt selbst verändert 
wird. Bei OB_STATE sind die Bits 6-13 
unbelegt, bei OB_FLAGS die Bits 9-15. 
Laut Digital Research sind sie auch nicht 
reserviert, also gerade richtig für unsere 
Zwecke. Für den Code einer Taste benö- 
tigen wir acht.Bits. Um die Routine mög- 
lichst flexibel zu halten, wird nicht der 
ASCII-, sondern der Scan-Code gespei- 
chert und zusätzlich in drei Bits der Status 
der Umschalttasten Shift, 
Control und Alternate, 
wobei auf die Unterschei- 
dung von rechter und linker 
Shift-Taste verzichtet wur- 
de, um der völligen Verwir- 
rung eines gestreßten An- 
wenders vorzubeugen. Die 


zusätzliche Berücksichtigung der 
Umschalttasten ist jedoch äußerst 
sinnvoll, vor allem bei Dialogbo- 
xen mit Texteingabefeldern, denn 
dort sind ja die meisten Tasten be- 
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SELECTABLE 





reits für die Eingabe reserviert. 


OBJEKT-STRUKTUR 





Der Scan-Code der Taste wird in 
die freien Bits 8-15 von 
OB_STATE eingetragen, der zu- 
gehörige Status der Umschaltta- 
sten in die Bits 13-15 von 
OB_FLAGS (siehe Bild 2). Ich 
habe die beiden Werte mit Absicht 
an den “oberen Rand” gelegt, 
damit sie nicht mit möglichen Er- 
weiterungen kollidieren, die ja bei- 





OFFSET 


ON ANZ 


INHALT 
ob_next 
ob_head 
ob_tail 


ae 


Textfeld für die nächste Eingabe 
bestimmt wurde. Das ist- unter der 
Voraussetzung, daß überhaupt 
Eingabefelder vorhanden sind - 
ganz zu Beginn der Fall und im 
folgenden immer dann, wenn der 
Cursor wegen eines Mausklicks 
oder einer Steuertaste in ein neues 
Feld bewegt werden muß. 





ob_type 


Das Darstellen des Strichcursors 





ob_flags 
ob_state 
ob_spec 
ob_# 
ob_y 
ob_w 
ob_h 
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spielsweise vom Kuma-RCS un- 
terstützt werden, wo man die Bits6 
und 7 von OB_STATE und die 
Bits 10 und I1 von OB_FLAGS 
manipulieren kann. 


Bild 2: Die benötigten Tasten-Codes werden an unbenützte Stellen in 
ob_flags und ob_state eingetragen. 


Eine Resource nach dem oben be- 
schriebenen Verfahren von Hand 
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zu verändern, wäre viel zu um- 
ständlich. Daher habe ich den Key 
Resource Editor geschrieben, der 
es auf einfache und komfortable 
Weise ermöglicht, Tastenbele- 
gungen für Resource-Objekte zu 
erzeugen. Eine derart veränderte 
Resource bleibt natürlich auch 
weiterhin lauffähig mit den übli- 
chen AES-Routinen. Weitere Ein- 
zelheiten über den Key Resource 
Editor finden Sie weiter hinten. 





Im folgenden möchte ich die Funktions- 
weise der neuen FORM_DO-Routine 
erklären und dabei auch auf die scheinbar 
wenig beachteten AES-Funktionen 
FORM_BUTTON, FORM_KEYBD und 
OBJC_EDIT eingehen. Grundsätzlich 
muß die Funktion genau das leisten, was 
auch die Original-FORM_DO-Routine 
bietet, nämlich die Abfrage und Auswer- 
tung von Tastatur- und Mausknopfeinga- 
ben. Steuertasten wie Cursor up/down, 
ESC etc. müssen richtig interpretiert, ein- 
gegebene Buchstaben und Ziffern in 
Textfelder eingetragen und angeklickte 
Objekte eventuell selektiert werden. 
Nach Anwählen eines Objekts mit Exit- 
oder Touchexit-Status muß der Dialog 
korrekt beendet werden. Dazu kommen 
nun noch die bereits geschilderten Son- 
derfunktionen. Bereits in der ST Compu- 
ter 8/87 wurde eine modifizierte Routine 
von Tim Oren, dem Autor des Digital 
Research RCS, vorgestellt, die die ge- 
schilderten grundsätzlichen Aufgaben 
übernimmt. Genau das gleiche Prinzip, 
wenn auch in stark abgewandelter Form, 


Format von OBJC_EDIT 


Original GEM-Dokumentation von DR: 
OBJC_EDIT(ob_edtree,ob_edobject,ob_edchar.ob_edidx, 


Bild 3 


ob_edkind,ob_newedidx) 


Binding in den meisten (C-)Compilern: 
OBJC_EDIT(ob_edtree,ob_edobject,ob_edchar,ob_edidx, 


ob_edkind) 


Hier wird für die bisherige Cursorposition (ob_edidx) 
und die zurückgelieferte neue Position (ob_newedidx) 
dieselbe Variable verwendet. 





benutzt auch die hier gezeigte 
FORM_DO-Funktion. Als Parameter 
werden ihr wie bei der Originalfunktion 
die Baumadresse und das Startobjekt, das 
als erstes ediert werden soll, übergeben. 
Mit WIND_UPDATEX(2) übernimmt die 
Applikation - das ist in diesem Fall unsere 
neue FORM_DO-Routine - die totale 
Kontrolle über die Maus. Das ist beson- 
ders deshalb wichtig, damit der Benutzer 
die Pull-Down-Menüs nicht anwählen 
kann. Dahinter finden wir schon den eı- 
sten entscheidenden Unterschied zur Ori- 
ginalroutine. Es wird geprüft, ob das über- 
gebene Startobjekt tatsächlich edierbar 
ist. Wenn nicht, wird mittels der Such- 
funktion search_ob_flag das erste edier- 
bare Textfeld bestimmt. So kann es auch 
nicht passieren, daß eine versehentlich 
falsch übergebene Objektnummer den 
Cursor mitten in der Dialogbox erschei- 
nen läßt und früher oder später zum Ab- 
sturz führt. Die nun folgende 
WHILE...WEND-Schleife überwacht die 
Benutzereingaben über Maus und Tasta- 
tur. Zunächst wird überprüft, obein neues 


SELECTED 


SCANCODE 








übernimmt die Funktion 
OBJC_EDIT. Und genau diese 
Funktion hat wohl in der Vergan- 
genheit immer wieder für Verwir- 
rung gesorgt, denn die ursprüngli- 
che DR-Dokumentation und die 
Bindings in verschiedenen Com- 
pilern (z.B. Megamax-C, DR-C) 
weichen voneinander ab. In GFA- 
Basic 3.0 ist diese Funktion löbli- 
cherweise nach der Originaldoku- 
mentation implementiert. Sollten 
Sie Extended FORM_DO auf eine 
andere Sprache umsetzen wollen, 
überprüfen Sie zunächst, in wel- 
chem Format OBJC_EDIT bei 
Ihnen eingebunden ist. Den Unter- 
schied zeigt Bild 3. Nun zur Funk- 
tionsweise von OBJC_EDIT. 
Übergeben werden die Bauma- 
dresse, der Index des betreffenden 
Textobjekts, das eingegebene Zei- 
chen als Wort (Hi-Byte: Scan- 
Code, Lo-Byte: ASCII-Code), die 
bisherige Position des Cursors, ein 
Flag zur Bestimmung der Funktion 
und als Rückgabewert die neue Position 
des Cursors. Wichtig ist vor allem der 
fünfte Parameter, nämlich das Flag 
ob_edkind. Dieses Flag kann die Werte 0- 
3 annehmen, wobei der Wert 0 
(ED_START) keinerlei Funktion besitzt. 
Setzen wir für ob_edkind eine | 
(ED_INIT) ein, so wird aus der Textmas- 
ke und dem Text ein formatierter String 
berechnet und der Cursor eingeschaltet, 
einfach ausgedrückt: Der Cursor er- 
scheint hinter dem letzten eingetragenen 
Zeichen in dem angegebenen Textobjekt. 
Der dritte und der vierte Parameter haben 
hier keine Bedeutung. Deshalb kann hier 
auch einfach eine 0 übergeben werden. 
Wichtig ist nur der zurückgelieferte Wert 
für die Variable pos&, welche nach dem 
Aufruf die Position des Cursors innerhalb 
des Eingabefeldes enthält. 





Durch den nachfolgenden EVNT_ 
MULTI-Aufruf wirdaufeinen Mausklick 
oder Tastendruck gewartet. War es ein 
Tastendruck, kommt die Funktion 
process_key zum Einsatz. Sie ist ein Er- 
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satz für die AES-Routine 
FORM_ KEYBD. Die Aufgabe 
von FORM_KEYBD istes, die 
Steuertasten Cursor up/down 
herauszufiltern und, falls eine 
der beiden Tasten gedrückt 
wurde, den Index des neuen 
Textobjekts zurückzuliefern. 
Außerdem ist sie dafür zustän- 
dig, bei Druck auf Return oder 
Enter zu überprüfen, ob ein 
Default-Objekt vorhanden ist, 
und gegebenfalls die Beendi- 
gung des Dialogs zurückzumel- 
den. Trotz intensiver Bemühun- 
gen istesmir jedoch nicht gelun- 
gen, diese AES-Funktion zum Laufen zu 
bringen (an der Implementierung in GFA- 
Basic kann's nicht liegen, denn selbst die 
Parameterübergabe “zu Fuß” durch Vor- 
besetzen der GEM-Arrays schaffte keine 
Abhilfe). Ich lasse mich natürlich gerne 
eines Besseren belehren. Allerdings ist 
das korrekte Funktionieren dieser Routi- 
ne auch nicht so wichtig hier, denn durch 
die vielen neuen Steuertasten, die unser 
FORM_DO unterstützt, muß ohnenhin 
eine eigene FORM_KEYBD-Funktion 
vorhanden sein, die alle standardmäßig 
vorhandenen Steuercodes korrekt inter- 
pretiert und zusätzlich - was ja nicht ver- 
gessen werden darf - die Tastenbelegun- 
gen der einzelnen Objekte überprüft. 


tree% 
obj& 
kstate& 


pos& 


Bild 4 





Genau das tut die Funktion process_key. 
Ich habe sie mit Absicht nicht 
form_keybd genannt, da die Parameterü- 
bergabe von der der normalen 
FORM_KEYBD-Routine abweicht. Die 
einzelnen Parameter und ihre Bedeutung 
sehen Sie in Bild 4. Entscheidend für uns 
ist vorerst nur, daß process_key für die 
Variable ev_key& eine Null zurückliefert, 
wenn es sich bei der gedrückten Taste um 
eine Steuertaste gehandelt hat, ansonsten 
wird der Tastencode unverändert zurück- 
gegeben. Zusätzlich bestimmt der in 
do_dial& enthaltene Rückgabewert, ob 
der Dialog beendet werden muß, d.h. ob 
ein Exit- oder Touchexit-Objekt über die 
Tastatur angewählt wurde. Ist ev_key& 
nach dem Aufruf ungleich Null, dann 
wurde keine Steuertaste gedrückt, und wir 
müssen uns selbst darum kümmern, daß 
das eingegebene Zeichen in dem aktuel- 
len Textobjekt verarbeitet wird. Das ge- 
schieht wiederum mit Hilfe von 
OBJC_EDIT, diesmal mit dem Flag 2. 
Dadurch wird uns eine Menge Arbeit 
abgenommen, denn wir müssen das ein- 
gebene Zeichen beispielsweise nicht auf 
seine Zulässigkeit an dieser Stelle über- 
prüfen. Das alles erledigt OBJC_EDIT. 
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ev_key& 


nxtchar& 
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Parameter der Funktion process_key 


Wertparameter: 


Baumadresse 


muß zugeben, daß ich anfangs 
auch etwas Probleme mit dieser 
Formulierung hatte. Deshalb sei 
es hier nochmals klar und deut- 


momentan ediertes Textobjekt (ed_obj& aus form_do) 


Status der Umschalttasten (SHIFT, CTRL, ALT) 
Scan-Code und ASCIl-Code der gedrückten Taste, 


wird von EVNT_MULTI geliefert (GEM-Format) 


VAR-Parameter: 
nxt_obj& Index des neuen aktuellen Objekts. Das ist entweder 


ein neues Textobjekt oder ein Exit-/Touchexitobjekt 


oder Null 
Inhalt 0: Die gedrückte Taste wurde verwendet 


Inhalt=ev_key&: Die gedrückte Taste muß weiter- 


verarbeitet werden. 
aktuelle Position des Cursors im Eingabefeld 





Es ist übrigens nicht ganz richtig, wenn 
ich davon spreche, daß an OBJC_EDIT 
keine Steuertasten übergeben werden. 
Wenn Sie die Funktion process_key et- 
was näher betrachten, werden Sie feststel- 
len, daß die Steuertasten Cursor links/ 
rechts, Backspace, Delete und Escape 
dort gar nicht behandelt werden. Das hat 
auch seine Richtigkeit, denn alle Steuer- 
tasten, die sich auf das aktuelle Textob- 
jekt beziehen und den Cursor nicht in ein 
anderes Eingabefeld bewegen, werden 
auch von OBJC_EDIT verwaltet. Das ist 
natürlich wahrer Luxus, denn wollte man 
all diese Funktionen selbst berücksichti- 
gen, würde der Aufwand erheblich anstei- 
gen. 


Gehen wir nun weiter im Listing. Wurde 
also eine Taste gedrückt, ist diese korrekt 
verarbeitet worden. Im Falle eines Maus- 
klicks wird mittels OBJC_FIND über- 
prüft, ob sich unter dem Mauszeiger ein 
Objekt befindet. Ist die Maus außerhalb 
der Dialogbox, wird für nyr_obj& eine -1 
zurückgeliefert, und wir quittieren das mit 
dem entsprechenden Klingelzeichen. 
Ansonsten muß bei Bedarf eine enstpre- 
chende Aktion, wie zum Beispiel das 
Selektieren eines Radiobuttons, ausgelöst 
werden. Glücklicherweise nimmt uns die 
Funktion FORM_BUTTON wiederum 
den größten Teil der Arbeit ab. Dicsc 
Funktion nämlich, die intern auch von 
FORM_DO benutzt wird, ermöglicht 
Mausknopfeingaben innerhalb einer Dia- 
logbox. Übergeben werden Baumadres- 
se, Index des angeklickten Objekts (hier 
ermittelt durch OBJC_FIND) und die 
Anzahl der Klicks. Genau wie bei 
process_key erhalten wir als Rückgabe- 
wertin do_dial& eine Null, falls ein Exit- 
/Touchexit-Objektangeklickt wurde, und 
in nxt_obj& den Index des neuen aktuel- 
len Objekts. Hier möchte ich nochmal 
einhaken, denn der Begriff “neues aktuel- 
les Objekt” ist doch sehr schwammig. Ich 


lich erklärt: nxt_obj& ist nach 
dem FORM_BUTTON-Aufruf 
nur dann ungleich Null, wenn 
entweder ein Exit- oder Touche- 
xit-Objekt oder ein edierbares 
Textfeld angeklickt wurden. In 
diesen Fällen sind Reaktionen 
von unserer Seite nötig, nämlich 
die Beendigung des Dialogs 
unter Rückgabe des angeklick- 
ten Exit-Objekts bzw. die neue 
Positionierung des Cursors. Den 
Sinn der zusätzlichen Angabe der Klick- 
Anzahl finden wir bei den Touchexit- 
Objekten. Bei einem Doppelklick auf ein 
Touchexit-Objekt liefert FORM_ BUT- 
TON den entsprechenden Objektindex 
mit gesetztem Bit 15 zurück, genauso wie 
bei der Original-FORM_DO-Funktion. 


Nun wird es ein bißchen komplizierter, 
denn die neue FORM_DO-Routine soll ja 
auch die zeichengenaue Cursor-Positio- 
nierung mit Hilfe der Maus erlauben. 
Daher wird zunächst überprüft, ob es sich 
bei dem angeklickten Objekt um ein 
Texteingabefeld handelt. Wenn ja, dann 
werden zunächst die X-Koordinate des 
Textobjekts. die aktuelle Zeichenbreite 
und die Länge der Textmaske bestimmt. 
Die Textmaske bestimmt das Aussehen 
eines Textobjekts auf dem Bildschirm. 
Sie enthält den statischen Teil des Einga- 
befeldes (also z.B. die Bezeichnung) 
sowie für jedes edierbare Zeichen einen 
Unterstrich “_" als Platzhalter. Die Länge 
dieser Textmaske findet sich beim Offset 
26 in der zugehörigen TEDINFO-Struk- 
tur, deren Adresse wir über 
OB_SPEC(tree%,nxt_obj&) erhalten. 
Nun wird abhängig von der Textausrich- 
tung (te_just, TEDINFO Offset 16) die 
Position des Mauszeigers innerhalb der 
Textmaske bestimmt. Je nachdem, ob der 





ig (0), recht ig dl) 
oder zentriert (2) ist, verändert sich natür- 
lich die horizontale Position der Maus 
relativ zur Textmaske. Ich hoffe, Sie 
haben es bis hierhin verstanden. Wenn 
nicht, dann wird ein intensiver Blick ins 
Listing bestimmt helfen. Noch sind wir 
abernichtam Ziel angelangt. In der Varia- 
blen mpos& steht jetzt zwar, über dem 
wievielten Zeichen der Textmaske sich 
der Mauszeiger befindet, wir wissen je- 
doch immer noch nicht, welches edierba- 
re Zeichen der Maus am nächsten ist, 
also wo der Cursor letztendlich erschei- 
nen muß. 





Das erledigt die nun folgende 
REPEAT...UNTIL-Schleife. Hier 
wird die Anzahl der vorkommenden 
Platzhalter “_” bis zur Mausposition 
gezählt. Die Variable p& schließlich 
enthält die neue aktuelle Cursorposi- 
tion in dem angeklickten Textobjekt. 
Das scheint schon alles gewesen zu 
sein, jedoch gibt es danoch ein kleines 
Problem, nämlich: Wie positioniert 
man nun den Cursor beliebig innerhalb 
eines Eingabefeldes? Auf normalem 
Wege istdanichts zumachen, denn der 
OBJC_EDIT-Aufruf zum Darstellen 
des Cursors (ED_INIT) läßt den Cursor 
grundsätzlich hinter dem 
letzten eingetragenen Zei- 
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Bild 5: Der Key Resource Editor nach dem Start 








chen erscheinen. Die Lö- 
sung dieses Problems findet 
sich in einem kleinen Trick: 
Man gaukelt der OBJC_ 
EDIT-Routine einfach vor, 
daß die Anzahl der einge- 
tragenen Zeichen gerade 
bis zur gewünschten Cur- 





Icon Bit Inage Load: 


You can load DATA or MASK 
or both. 





If both, DATA will 


be loaded first. 
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sor-Position reicht. Um das 
zu erreichen, ersetzt man 
das entsprechende Zeichen, 
nachdem man es sich vor- 
her gemerkt hat, durch ein Nullbyte. Dann 
ruft man OBJC_EDIT auf, was zur Folge 
hat, daß der Cursor an der angestrebten 
Position erscheint. Schließlich muß man 
das entsprechende Zeichen wieder an 
seiner alten Position eintragen. Bevor 
man jedoch den Cursor an seiner neuen 
Position erscheinen läßt, muß dieser erst 
an seiner alten gelöscht werden. Dies erle- 
digt wiederum OBJC_EDIT mit 
ob_edkind=3 (ED_END). 


Wir sind nun fast am Ende von EXTEN- 
DED FORM_DO angelangt. Vor Ab- 
schluß der WHILE...WEND-Schleife 
wird noch für den Fall, daß der Dialog 
beendet werden muß oder ein neues Tex- 
teingabefeld angewählt wurde, der Cur- 
soraus dem aktuellen Textobjektentfernt. 
Zum Schluß wird die Mauskontrolle über 
WIND_UPDATE(2) wieder frei- und das 
Objekt, mit dem die Dialogbox verlassen 
wurde, zurückgegeben. 


Noch ein paar Worte zur Funktion 
process_key. Bei Eingabe von Return 
oder Enter wird zunächst überprüft, obein 
Default-Objekt vorhanden ist. Ist dies 
nicht der Fall, wirken diese beiden Tasten 
genau wie Cursor down und bewegen den 
Cursor ins nächste Texteingabefeld. Eine 
Ausnahme jedoch bildet das letzte Einga- 
befeld. Befindet sich der Cursor im letz- 
ten Eingabefeld und existiert kein De- 
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Bild 6: Tasten-Codes lassen sich den Buttons einfach zuordnen. 


fault-Objekt, dann wird bei Druck auf 
Return/Enter geprüft, ob ein Exit-Objekt 
existiert. Wenn nicht. wird daraufhin der 
Dialog beendet. Das klappt natürlich auch 
bei Dialogboxen. die keine edierbaren 
Textobjekte besitzen. So gehören 
FORM_DO-Endlosschleifen aufgrund 
vergessener Exit-Objekte der Vergan- 
genheit an. Wenn keine der im SELECT- 
Konstrukt aufgeführten Steuertasten ge- 
drückt wurde, überprüft search_key_obj. 
ob einem Objekt der Dialogbox diese 
Taste bzw. Tastenkombination zugeord- 
net wurde. Wurde ein Objekt gefunden, 
wird mittels FORM_BUTTON die glei- 
che Aktion ausgelöst. als wäre das Objekt 
angeklickt worden. 


Der Key Resource Editor 


Soviel also zum Extended FORM_DO. 
Was wäre solch eine Erweiterung aber 
ohne die Möglichkeit, die notwendigen 
Tastaturbelegungen einfach, schnell und 
komfortabel in einer Resource zu erzeu- 
gen? Dazu habe ich den Key Resource 
Editor entwickelt. Er ermöglicht es auf 
einfache Weise, Resource-Files zu laden, 
diese zu edieren und wieder abzuspei- 
chern. Der Key Resource Editor ist wegen 
seiner Listinglänge allerdings nur auf der 
Monatsdiskette zu finden. Wir bitten da- 
für um Verständnis. Ein großer Vorteil 
des Key Resource Editors ist, daß er De- 
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Taste: UNDO 


finitions-Dateien sowohl vom Digital 
Research RCS (Versionen I und 2) als 
auch vom Kuma-RCS lesen kann. 
Diese Fähigkeit ermöglicht es Ihnen, 
die einzelnen Objektbäume und Ob- 
jekte namentlich anzusprechen, was 
eine große Arbeitserleichterung dar- 
stellt. 


Nach dem Start des Programms er- 
scheint die Auswahlbox (Bild 5). Von 
hier aus können Sie durch Anklicken 
von LOAD ein Resource-File einla- 
den. Das Programm lädt das Re- 
source-File und - falls vorhanden - das 
zugehörige Definitionsfile. Daraufhin 
werden alle Objektbäume 
der Resource indem Fenster 
TREES dargestellt. Ange- 
wählt werden können nur 
Formularobjekte, das heißt 
also Forms (Kuma) bzw. 
Dialogs, Panels (DR). Alle 
übrigen Strukturen wie 
Menüs(M).Alerts(A). Free 
Strings (S) und Free Images 
(I) sind in heller Schrift dar- 
gestellt. Die jeweiligen 
Großbuchstaben davor ge- 
ben Auskunft über die Art der Struktur. 
Ein Häkchen vor einem Objektbaum be- 
deutet. daß in dieser Dialogbox Tastenbe- 
legungen eingetragen sind. Mit den Rand- 
objekten des Fensters können Sie bei 
mehr als acht Strukturen den gezeigten 
Ausschnitt verändern, genau wie bei der 
Fileselektorbox. 
gungen zu speichern oder bereits beste- 
hende zu ändern. klicken Sie auf den ent- 
sprechenden Objektbaum und danach auf 
EDIT. Das gleiche erreichen Sie durch 
Doppelklick auf den Baumnamen. Die 
Dialogbox wird daraufhin gezeichnet. 
Nun klicken Sie das erste Objekt an. dem 
Sie eine Taste zuordnen wollen. Es wird 
dann selektiert. und an der gleichen Stelle 
erscheinteine kleine Infobox (Bild 6). Sie 
gibt Auskunft über den Namen des Ob- 


Um neue Tastenbele- 
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gung. Drücken Sie nun die Taste, die Sie 
diesem Objekt zuordnen möchten. Sie 
erscheint daraufhin in der Infobox. 
Denken Sie daran, daß auch Tasten in 
Verbindung mit Shift, Control und Alter- 
nate sowie beliebige Kombinationen der- 
selben erlaubt sind. Solange die Infobox 
auf dem Bildschirm steht. können Sie die 
Belegung des Objekts durch erneutes 
Drücken einer Taste beliebig oft verän- 
dern. Um die Tastenbelegung für das an- 
gewählte Objekt ganz zu löschen, klicken 
Sie auf den Button CLR links oben in der 
Infobox. Wenn Sie das Edieren des Ob- 


jekts beenden wollen, klicken Sie 
einfach mit der Maus auf den 
Bereich außerhalb der Infobox. 
Sie können jetzt weitere Objekte 
edieren oder sich auch nur deren 
momentane Belegung anschauen. 
Um das Edieren der Dialogbox zu 
beenden, drücken Sie entweder 
beide Maustasten gleichzeitig 
oder die linke Maustaste in Ver- 
bindung mit Shift, Control oder 
Alternate. Sie sehen nun wieder 
die Auswahlbox und können wei- 
tere Dialogboxen mit Tastenbele- 
gungen versehen. Der RESET- 
Button in der Auswahlbox dient 
zum kompletten Löschen aller 
Tastenbelegungen eines Objekt- 
baums. Dazu klicken Sie zunächst 
den entsprechenden Baumnamen 
an und danach RESET. Das Häk- 
chen vor dem Namen verschwin- 
det jetzt - die Dialogbox ist wieder 
“sauber”, 


Um die Tastenbelegungen sämtli- 
cher Bäume auf einmal zu lö- 
schen, klicken Sie auf den RE- 
SET-Button, ohne vorher einen 
bestimmten Baum auszuwählen. 
Es erscheint daraufhin die Sicher- 
heitsabfrage RESET ALL 
TREES?, die Ihnen die Möglich- 
keit gibt, Ihre Entscheidung zu 
revidieren. Sie können so sehr 
einfach eine komplette Resource 
von den Tastenbelegungen befrei- 
en. Sind Sie fertig mit dem Edie- 
ren der Resource, können Sie Ihr 
Werk über SAVE abspeichern. 
Wird die Resource unter gleichem 
Namen abgespeichert, so finden 
Sie die ursprüngliche Version 
nachher als Backup-File mit der 
Extension .RSB. 


Soviel zu der Bedienung des Key 
Resource Editors. Da das Pro- 


Er lerne 
ich Gonumenticrt 





gramm ausfül 
ist, möchte ich nicht auf alle Ein- 
zelheiten eingehen und nur einige 
Teile des Listings ansprechen. 
Bild 7 dokumentiert übersichtlich 
das Format der Definitionsdateien 
der verschiedenen Resource Con- 
struction Sets. Ich hatte bei der 


Entwicklung nur die Möglichkeit, die 
Formate der jeweils angegebenen Versio- 
nen zu testen. Sollten Sie ausgerechnet 
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Definitions-Dateien 


der verschiedenen Resource Construction Sets 
Digital Research RCS V1.4 (Extension .DEF) 


Bytes 0,1 Anzahl der Objektnamen im Motorola-Format 








danach in jeweils 16 Bytes die einzelnen Einträge: 


INHALT 
{ı} 


Baum-Index bei untergeordneten Objekten 


0 bei Bäumen, 1 bei Objekten 


0,1 

2 

3 Objekt-Index, Baum-Index,... 
4 

5 


Baumtyp: 0: Unbekannt, 1: Free-Tree (=Panel), 
2: Menübaum, 3: Dialogbaum, 4: Alert 


6-13 Name des Baums/Objekts 
14,15 0 


Bei diesem RCS werden Free Strings/Free Images 


nicht verarbeitet 


Digital Research RCS V2.1 (Extension .DFN) 


Bytes 0,1 Anzahl der Objektnamen im Intel-Format 


(Lo-Byte/Hi-Byte) 


danach in jeweils 14 Bytes die einzelnen Einträge: 


BYTE INHALT 

0 Objekt-Index, Baum-Index, Free String-Index.... 

1 Baum-Index bei untergeordneten Objekten 

2 Baumtyp: 0: Unbekannt, 1: Panel, 2: Menübaum 
3: Dialogbaum, 4: Alert 

3 0 bei Bäumen, 1 bei Objekten 

4-11 Name des Baums/Objekts 

12,13 0 


bei Free Strings: Byte 2: 1, Byte 3: 1 
bei Free Images: Byte 2:2, Byte 3: 1 


Mit dem neuen Format lassen sich nun auch die Definitions- 
Dateien zwischen PC-GEM und Atari ST-GEM austauschen. 


Kuma RCS V1.0 (Extension .RSD) 


Jeweils 16 Bytes pro Eintrag. Im ersten Eintrag haben die 


Bytes 0 - 3 eine besondere Bedeutung: 


Bytes 0,1 Anzahl der Objektnamen im Motorola-Format 


Byte 2 0(9) 
Byte 3 


Kennung für erzeugte Namensdatei: 


Bit 0: C, Bit 1: Pascal, Bit 2: Modula, Bit 3: Fortran 


BYTE INHALT 

0-3 immer 0 bis auf ersten Eintrag (s.o.) 

4 Baum-Index bei untergeordneten Objekten 

5 Objekt-Index, Baum-Index, Free String-Index,... 

6 0 bei Bäumen, 1 bei Objekten 

7 Baumtyp: 2: Menübaum, 3: Dialogbaum, 4: Alert, 


5: Free String, 6: Free Image 
8-15 Name des Baums/Objekts 


Bild 7 


bereit zu helfen. 


ein RCS besitzen, dessen Definitionsda- 


teien vom Key Resource Editor nicht 
verarbeitet werden, müssen Sie versu- 
chen, herauszufinden, inwieweit das For- 


mat von den hier dargestellten abweicht. 
Sollten alle Stricke reißen, bin ich gerne 


Indem Listing finden sich zwei Dinge, die 
ich gesondert hervorheben möchte. Das 
erste ist die Lösung eines Problems, das 





Wie man an dem Format der drei Dateien erkennen kann, werden 
bei allen Resource Construction Sets die Namen von Objekten, 
deren Index größer als 255 ist, nicht korrekt verwaltet. 


wohl weit verbreitet zu sein 
scheint, nämlich die Verwaltung 
von mehreren Resource-Files in 
einem Programm, ist doch allzu 
schnell die magische Grenze von 
32 kByte überschritten. Prinzi- 
piell ist es ja gar kein Problem, 
mehrere Resource-Files mittels 
RSRC_LOAD zu laden. 


Speichert man beispielsweise 
nach dem Laden des ersten RSC- 
Files alle Baumadressen in Va- 
riablen, so benötigt man nach 
Laden des zweiten RSC-Files 
den RSRC_GADDR-Aufruf für 
die Bäume der ersten Resource 
nicht mehr. Dieses Prinzip funk- 
tionierte auch hundertprozentig, 
wäre da nicht die Freigabe des 
Speichers bei Beendigung des 
Programms mit RSRC_FREE. 
Damit kann man zum Abschluß 
des Programms nur noch den 
Speicher für die zuletzt geladene 
Resource freigeben. Program- 
miert man in GFA-BASIC und 
möchte schließlich den mit 
RESERVE freigegebenen Spei- 
cher wieder an das BASIC zu- 
rückgeben, folgt unweigerlich 
ein “Fehler bei RESERVE”. 
Abhilfe schafft hier eine kaum 
dokumentierte Adresse. Diese 
befindet sich im GEM-internen 
GLOBAL-Feld. Die Adresse des 
GLOBAL-Feldes steht im zwei- 
ten Langwort des AES-Parame- 
ter-Feldes. In GFA-BASIC er- 
reicht man es über GB+4. In den 
Elementen 7 und 8 (Offset 14) 
des GLOBAL-Feldes findet man 
nach einem RSRC_LOAD die 
Adresse der Resource im Spei- 
cher und im Element 9 (Offset 
18) die Länge der geladenen Re- 
source. Auf diese Einträge grei- 
fen auch die AES-Funktionen 
zu. Der Rest ist dann recht ein- 
fach. Man muß nur nach dem 
Laden der ersten Resource deren 
Adresse und Länge zwischen- 
speichern, bevor man die zweite 
Resource lädt. Bei Beendigung 
des Programms wird mit 


RSRC_FREE zunächst der Speicher für 
die zweite Resource freigegeben. Darauf- 


hin trägt man im GLOBAL-Feld Adresse 
und Länge der ersten Resource ein und 


ruft RSRC_FREE erneut auf. So wird der 
belegte Speicher wieder korrekt freigege- 
ben. Prinzipiell läßt sich dieser Vorgang 
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auch mit mehr als zwei RSC-Files rea- 
lisieren. Weitere Einzelheiten entneh- 
men Sie bitte dem Listing. Die hier ge- 
schilderten Eigenschaften haben mei- 
nes Wissens Gültigkeit für alle TOS- 
Versionen bis einschließlich Blitter- 
TOS, sodaß man wohl davon ausgehen 
kann, daß es auch auf dem neuen TOS 
1.4 und späteren Versionen funk- 
tioniert. 








Bei näherem Betrachten des Listings 

wird Ihnen vielleicht auffallen, daß die 

zu bearbeitende Resource zweimal 

geladen wird. Das erste Mal mit 

RSRC_LOAD und das zweite Mal 

mittels BGET. Der Grund dafür ist 

folgender: Die Resource, wie sie von 
einem RCS erstellt wurde, liegt in einem 
adreß- und auflösungsunabhängigen For- 
mat vor. Sämtliche absoluten Adressen, 
Objektkoordinaten und -maße werden 
von der Funktion RSRC_LOAD nach 
dem Laden automatisch berechnet und 
eingetragen. Um die Resource abzuspei- 
chern, müßte man sie erst wieder in ihr 
ursprüngliches Format zurückverwan- 
deln: Wenn der Benutzer nun nach dem 
Abspeichern aber weiter an der Resource 
arbeiten wollte, müßte sie wiederum 
umgewandelt oder gar ganz neu geladen 
werden. Das wäre zuviel Aufwand. Statt- 
dessen wird die mit RSRC_LOAD gela- 
dene Resource ausschließlich benutzt, um 
die Dialogboxen auf dem Bildschirm zu 
zeigen, während die vorgenommenen 
Tastenbelegungen in das “Duplikat” ein- 
getragen werden. Dieses Duplikat wird 
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Bild 8: Beispiel für eine mit dem Key Resource 
Editor erstellte Dialogbox. 


auch hinterher wieder abgespeichert. 
Dadurch erspart man sich einiges an Pro- 
grammieraufwand, und an den maximal 
32 kByte zusätzlich benötigtem Speicher 
soll es ja wohl nicht scheitern. 


Abschließend noch ein paar Tips und 
Ratschläge. Man könnte die neue 
FORM_DO-Funktion dahingehend er- 
weitern, daß sie bei Beendigung des Dia- 
logs auch noch den Index des zuletzt 
edierten Textobjekts zurückliefert. So 
könnte der Cursor bei einem erneuten 
Aufruf wieder in dem zuletzt bearbeiteten 
Eingabefeld stehen. Das ist gerade bei 
Dialogboxen, die nach dem Anwählen 
eines Touchexit-Objekts. auf dem Bild- 
schirm stehen bleiben, sehr nützlich. Die 
Realisierung ist einfach. Dazu muß man 
lediglich die Variable startobj& durch 
ed_obj& ersetzen und in der Parameterli- 
ste der Funktion ed_obj& als VAR-Para- 


meter deklarieren. Allerdings kann 
dann beim Aufruf für das Startobjekt 
keine Konstante mehr übergeben wer- 
den. Ich habe diese Erweiterung nicht 
schon von vornherein eingebaut, um 
Kompatibilität zur normalen FORM_ 
DO-Routine zu gewährleisten. Denk- 
bar wäre auch die zusätzliche Abfrage 
von Messages über EVNT_MULTI, 
damit der Benutzer auch während der 
Eingabe in eine Dialogbox die Mög- 
lichkeit hat, Menüeinträge anzuwäh- 
len. Der Sinn einer solchen Möglich- 
keit ist natürlich stark von der jeweili- 
gen Anwendung abhängig. 








Was die Gestaltung von Dialogboxen mit 
zusätzlichen Tastenbelegungen angeht, 
kann ich jedem nur raten, es nicht zu 
übertreiben. Immerhin soll diese Funk- 
tion eine Erleichterung für den Anwender 
darstellen. Die Belegung der einzelnen 
Objekte sollte nach bestimmten Prinzi- 
pien erfolgen und leicht einzuprägen sein. 
In Bild 8 sehen Sie ein kleines Beispiel 
einer auch für den Benutzer sichtbaren 
Tastenbelegung einzelner Objekte. 


Tassilo Nitz 


Literatur: 
Atari ST Profibuch, Sybex-Verlag 
ST Computer 8/87 8.20 ff 
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” EXTENDED FORM_DO * 
* (ec) MAXON Computer GmbH * 
* I: 08.06.89 Tassilo Nitz * 
* U: 09.06.89 Krablerstr. 24 * 
# 4300 Essen 12 * 
* * 
* * 
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FUNCTION form do (tree#, startobj&) 


LOCAL ed_obj&,nxt_obj&,mes&,pos&,do_ dial&s,oxs&, 


mpos&,p&,i&,buf| 


LOCAL ev_mx&,ev_my&,ev_mb&s,ev_ks&,ev_keys, 


ev_clicks& 


-WIND_UPDATE (3) 


!BEG_MCTRL 


IF NOT BTST(OB_FLAGS (tree#,startobj&),3) 


!startobj& editable? 

nxt_objs=@search_ob_flag(tree®,0,3,1) 
ELSE 

nxt_objs=startobjs 
ENDIF 
ed_objs=0 
do_dials=TRUE 


WHILE do_dial& 


!Index des aktuellen Textobjekts 





IF ed_objs<>nxt_obj& AND nxt_obj&<>0 !neues 
Textobjekt? 
ed_objs=nxt_obj& 
nxt_obj&=0 
-OBJC_EDIT (treet,ed_0bj&,0,0,1,pos&) !ja, 
Cursor darstellen 
ENDIF 
mes&=EVNT_MULTI (&X11,2,1,1,0,0,0,0,0,0,0,0,0, 
0,0,0,ev_mx&,ev_my&,ev_mbs,ev_kss, 
ev_keys,ev_clickss) 


IF BTST(mes&,O0) 


!Tastendruck 


do_dials=@process_key(treei,ed_objs,ev_ks&, 
ev_key&,nxt_obj&,ev_key&) 


IF ev_key& !keine Steuertaste 
=OBJC_EDIT(tree$,ed_obj&,ev_keys,pos&,2, 
poss) 
!in Textobjekt einfügen 
ENDIF 
ELSE IF BTST(mes&,1) !Maustaste 
nxt_obj&=0BJC_FIND(tree%,0,8,ev_mx&,ev_my&) 
!Objekt unter Mauszeiger 
5 =° 
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IF nxt_objs=-1 
Dialogbox 
OUT 2,7 
nxt_objs=0 

ELSE 
IF BTST(OB_FLAGS (tree$,nxt_obj&), 3) 

!Editable? 
=OBJC_OFFSET (tree$,nxt_obj&,ox&, dummy&) 
IX-Koord. Textobjekt 
=GRAF_HANDLE (charw&, dummy&, dummy&, 
dummy&) 
!Breite eines Zeichens 
mlen&=CARD{OB_SPEC (tree%,nxt_obj&) +26} 
!Länge der Textmaske 
SELECT CARD{OB_SPEC (tree%,nxt_obj&) +16} 
!Textausrichtung 
CASE 0 !linksbündig 
mpos&=TRUNC ( (ev_mx&-ox&) /charws+0.5) 
' rechtsbündig: nur der 
Vollständigkeit halber, 
werden vom AES 
CASE 1 !sowieso nicht korrekt 
verwaltet 
mpos&=TRUNC ( (ev_mx&-ox&-OB_W(tree#, 
nxt_obj&)+mlen&s*charws)/ 
charws-0.5) 
CASE 2 !zentriert 
mpos&=TRUNC ( (ev_mx&-ox&- (OB_W(treet, 
nxt_obj&)-mlens*charws)/2)/ 
charw&) 
ENDSELECT 
IF mpos&>0 
CLR p&,i& 
REPEAT !Zeichenposition bestimmen 
IF BYTE{{OB_SPEC (tree®,nxt_obj&)+4}+ 
ie)=95 1"_" 


!Maus auPerhalb der 


INC p& 
ENDIF 
INC i& 
UNTIL i&=mpos& OR i&=mlens 
ELSE 
p&=0 
ENDIF 
-OBJC_EDIT (tree®,ed_objs,0,pos&,3,pos&) 
!Positionierung des 
buf|=BYTE{{0B_SPEC (tree*,nxt_obj&) }+p&} 
!Cursors mit einem 
BYTE{{OB_SPEC (tree#,nxt_obj&) }+p&}=0 
!kleinen Trick 
-OBJC_EDIT (tree%,nxt_obj&,0,pos&,1,pos&) 
BYTE({0OB_SPEC (treet,nxt_obj&) }+p&}=buf| 
ed_objs=nxt_obj& !aktuelles 
Textobjekt neu setzen 
ENDIF 
do_dial&s=FORM BUTTON (tree®,nxt_obj&, 
ev_clicks&,nxt_objs) 
ENDIF 


ENDIF 
IF do_dial&=0 OR (nxt_objs<>0 AND 
nxt_obj&<>ed_obj&) !wenn neues 
Textobjekt 
-OBJC_EDIT (treet,ed obj&,0,pos&,3,pos&) 
!oder Ende des Dialogs 
ENDIF 


WEND 
-WIND_UPDATE (2) 
RETURN nxt_obj& 


ENDFUNC 


!END_MCTRL 


FUNCTION process_key(tree%,objs,kstates,ev_keys, 
VAR nxt_obj&,nxtchars) 
LOCAL key_obj& 


IF BTST (kstates, 0) 
kstates=BSET (kstates,1) 

ENDIF 

kstates=SHRS (kstates,1) 

nxtchars=0 

SELECT ev_keys 


CASE &H4D36 !SHIFT/Cursor right 
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-OBJC_EDIT(tree$,ed_obj&,0,pos&,3,pos&) 
109: -OBJC_EDIT(tree$,ed obj&,0,pos&,1,pos&) 
110: ' 

111: CASE &H4B34 I!SHIFT/Cursor left 

112: -OBJC_EDIT(tree$,ed_obj&,0,pos&,3,pos&) 
113: buf|=BYTE{{0B_SPEC (tree$,ed_obj&)}} 

114: BYTE{{0B_SPEC(treet,ed_obj&) }}=0 

115: -OBJC_EDIT(tree$,ed_obj&,0,pos&,1,pos&) 
116: BYTE{{0B_SPEC (treet,ed objs) }}=buf| 


118: CASE &H5000 !Cursor down 
119: nxt_objs=@search_ob_flag(treet,objs,3,1) 


121: CASE &H4800 !Cursor up 
122: nxt_obj&=@search_ob_flag(tree#,obj&,3,-1) 





124: CASE &H5032,&H4737 !SHIFT/Cursor down 


HOME 


SHIFT/ 


REPEAT 
nxt_objs=obj& 
objs=@search_ob_flag(treet,objs,3,1) 

UNTIL obj&=nxt_obj& 


CASE &H4838, &H4700 !SHIFT/Cursor up / HOME 
nxt_obj&=@search_ob_flag(tree#,0,3,1) 


CASE &HICOD, &H720D !RETURN/ENTER 
134: nxt_objs=@search_ob_flag(tree#, 0,1,1) 
!Default-Objekt vorhanden? 
135: IF nxt_obj& 
!ja, dann Mausklick simulieren 
136: RETURN FORM BUTTON (treet,nxt_obj&,l, 
nxt_objs) 
137: ELSE !kein Default-Objekt 
138: nxt_objs=@search_ob_flag(tree%,objs,3,1) 
!nächstes Textobjekt suchen 
139: IF nxt_obj&=obj& AND @search_ob_flag(trees, 
0,2,1)=0 
140: RETURN FALSE !kein Exit-Obj und 


Cursor im letzten Textobjekt 











ENDIF 
ENDIF 
DEFAULT !keine Steuertaste => Objekt mit 
passender Tastenbelegung suchen 
145: key_obj&=@search_key_obj(treet,kstates, 
ev_keys) 
146: IF key_objs 
!objekt gefunden 
147: RETURN FORM_BUTTON (treet,key_obj&,l, 
nxt_obj&) 'Mausklick simulieren 
ENDIF 
nxt_obj&=obj& 
nxtchar&=ev_keys 
ENDSELECT 


RETURN TRUE 
155: ENDFUNC 
156: FUNCTION search _key obj(treet,kstates,ev_keys) 





157: LOCAL keyl,obj& 

158: key|=SHR& (ev_keys, 8) Inur SCAN-Code 
159 x 

160: objs=0 

161: REPEAT 

162: INC obj& 


163: IF key|=SHR& (OB STATE (treet,obj&),8) AND 


kstates=SHR& (OB_FLAGS (treet,obj&),13) 
164: RETURN obj& 
165: ENDIF 
166: UNTIL BTST(OB_FLAGS (tree#,obj&),5) 


167: ; 

168: RETURN 0 

169: ENDFUNC 

170: FUNCTION search_ob_flag(tree%,startobjs,bitnr|, 


directiong) 
171: LOCAL obj& 
172: objs=startobjs 
173: REPEAT 
174: ADD obj&,directions 
175: IF BTST(OB_FLAGS (tree%,obj&) ,‚bitnr|) 
176: RETURN obj& 
177: ENDIF 
178: UNTIL (obj&=0) OR BTST(OB_FLAGS (tree%,obj&),5) 


179: RETURN startobj& 
ENDFUNC 
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Willkommen zum zehnten Teil des Mo- 
dula-Kurses. In dieser Folge geht es um 
eine Eigenschaft von Modula, die ande- 
reaufMikros verbreitete Sprachen wie 
Pascal oder C nicht kennen: die Mög- 
lichkeit zur nebenläufigen Program- 
mierung. Doch zunächst noch ein ande- 
res Thema. 


Prozedurvariablen 


Noch immer ist die Auflistung der Daten- 
typen in Modula-2 nicht komplett. Für das 
heutige Hauptthema benötigen wir eine 
neue Art von Variablen, die Prozedurva- 
riablen. Sie erhalten nicht einen “norma- 
len” Wert, sondern können eine ganze 
Prozedur speichern. Übrigens waren Pro- 
zedurvariablen auch schon in Pascal vor- 
handen, wurden jedoch kaum auf Mikros 
implementiert. 


Wie war das? Eine ganze Prozedur in 
einer Variablen ablegen? Nun, in einer 
Modula-Implementierung wird sicher- 
lich keine ganze Prozedur abgespeichert, 
lediglich ein Verweis auf eine Prozedur 
bildet eine Prozedurvariable. 
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Der Umgang mit Prozedurvariablen un- 
terscheidet sich zunächst nicht von den 
bisher bekannten. Sie müssen deklariert 
werden, es gibt Zuweisungen, und sie 
können in Ausdrücken verwendet wer- 
den. 


Welchen Typ hat nun eine Prozedur? Sie 
besteht aus einer Reihe von Anweisun- 
gen, lokalen Variablen und Parametern. 
Die internen Vorgänge interessieren nicht 
nach außen, lediglich die Parametertypen 
und ihre Reihenfolge sind bekannt. Und 
genau sie charakerisieren den Typ einer 
Prozedur. 


Eine Prozedurvariable wird durch das 
Schlüsselwort PROCEDURE und eine 
Liste der Parametertypen deklariert: 


VAR p,q:PROCEDURE(INTEGER, INTE- 
GER, REAL); 


p und q sind nun Variablen, die jede Pro- 
zedur aufnehmen können, die als Parame- 
ter zwei INTEGERSs und ein REAL ver- 
langt. Zum Speichern von Funktionen 
muß auch der Ergebnistyp in gewohnter 
Weise notiert werden: 


VAR f,g:PROCEDURE(REAL):REAL; 


Hier kann jede Prozedur aufgenommen 
werden, die ein REAL als Parameter er- 
hält und ein REAL als Ergebnis abliefert. 


Wie funktioniert eine Zuweisung? Um 
eine Prozedur zuzuweisen, muß sie natür- 
lich zunächst deklariert werden, denn es 
gibt ja keine vordefinierten Werte wie 
z.B. bei den Zahlen: 


PROCEDURE afx,y:INTEGER; z:REAL); 
BEGIN 


END a; 
und für das Beispiel mit Funktionen: 


PROCEDURE double(x:REAL):REAL; 
BEGIN 

RETURN 2.0*x; 
END double; 


PROCEDURE triplicate(x:REAL):REAL; 
BEGIN 

RETURN 3.0*x; 
END triplicate; 


Nun ist die Zuweisung p:=a; legal. a ist 
eine Prozedur mit zwei INTEGER- und 
einem REAL-Parameter. p hat den ent- 


sprechenden Typ, und die Zuweisung 
kann durchgeführt werden. 


Ebenso kann man schreiben: q:=p;. Bei- 
de Variablen haben den gleichen Typ, und 
gerhält den Inhalt von p. Die Behandlung 
von Funktionen läuft ebenso ab. 


Nun stellt sich die Frage, was das alles 
bringt. Bisher sind nur Prozeduren - oder 
Referenzen auf sie - in Variablen abge- 
speichert. Wir können damit Zuweisun- 
gen ausführen, mehr aber auch nicht, vom 
Rechnen ganz zu schweigen. 


Aber man kann mit Prozedurvariablen 
das machen, was man auch mit Prozedu- 
ren macht: sie aufrufen. Und da sie varia- 
bel sind, kann ihr Inhalt während der 
Laufzeit des Programms bestimmt wer- 
den. Die Aufrufe von Prozeduren in ei- 
nem Programm sind einerseits nicht mehr 
vorhersehbar, andererseits erhalten wir 
damit eine ungeheure Flexibilität. 


Ist wie oben irgendwann der Prozedurva- 
riablen p die Prozedur azugewiesen, kann 
die Variable in der Art einer Anweisung 
notiert und damit der Aufruf von a ausge- 
löst werden: 


p(1,2,42.3); 


Wird der aktuelle Wert von p eingesetzt, 
entspricht das dem Aufruf a(1,2,42.3):. 
Funktionsaufrufe werden immer in Aus- 
drücken eingesetzt und liefern einen ent- 
sprechenden Wert ab. Prozedurvariablen, 
die Funktionen als Werte erhalten, müs- 
sen ebenso behandelt werden: 





9 
x:=f(1.0)+9(3.0); 


Setzt man die Werte der Prozedurvaria- 
blen ein, erhielte x zunächst 2.0 und da- 
nach 2.0+9.0=11.0. Es ist natürlich auch 
möglich, die Prozedurvariablen mit 
Funktionen zu schachteln: 


xef(g(2.0)); 


würde x den Wert 12.0 zuweisen. 


Weiterhin lassen sich Prozedurvariablen 
auch als Parameter für Prozeduren ver- 
wenden. Sie werden ganz normal in der 
Parameterliste notiert: 


TYPE IntProz =PROCEDURE(INTEGER); 


PROCEDURE Count(a:INTEGER: 
p:IntProz); 
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Anworten von Teil IX 


1. Die geforderte Prozedur muß so aus- 
sehen: 


MODULE Al; 


FROM SYSTEM IMPORT TSIZE; 
FROM Storage IMPORT ALLOCATE, 
DEALLOCATE; 


TYPE INTPOINTER = POINTER TO 
INTEGER; 


PROCEDURE NewInt (wert: INTEGER; 
VAR zeiger:INTPOINTER) ; 
BEGIN 
ALLOCATE (zeiger, TSIZE (INTEGER)); 
zeiger*:=wert; 
END NewInt; 


Der zweite Parameter von New/nt - der 
Zeiger - muß mit einem eigenen Typen 
versehen werden, da es sich bei POIN- 
TER TO INTEGER nicht um einen ein- 
fachen Typen handelt. New/nt richtet 
mit ALLOCATE die dynamische INTE- 
GER-Variable ein und weist ihr den 
übergebenen Wert per Dereferenzierung 
zu. 


2. Ampeln sind entsprechend dem Kon- 
zept von abstrakten Datentypen imple- 


mentiert: Im Definitions-Modul werden 
lediglich der Typ Ampel und die ge- 
wünschten und notwendigen Prozedu- 
ren zur Arbeit damit bereitgestellt. Zur 
Beschreibung von Werten, die Ampeln 
annehmen können, gibt es schließlich 
noch die Typen AmpelFarbe und Am- 
pelFarben. Damit istesmöglich, Ampel- 
farben als Konstanten im Programm zu 
notieren. Man könnte auch noch weitere 
Routinen SetRot, SetGruen etc. einfüh- 
ren und dann auf diese Typen verzichten. 


DEFINITION MODULE Ampeln; 
(* R.Tolksdorf/ST-Computer 
Version*: 14.09.8915:1 *) 


TYPE Ampel; 

AmpelFarben = (Rot, Gelb, 
Gruen); 
SET OF 
AmpelFarben; 


AmpelFarbe 


PROCEDURE MakeAmpel (VAR a:Ampel); 
PROCEDURE KillAmpel (VAR a:Ampel); 


PROCEDURE SetAmpel (a:Ampel; 
£:AmpelFarbe); 


PROCEDURE 
GetAmpel (a:Ampel) :AmpelFarbe; 


PROCEDURE SwitchAmpel (a:Ampel); 


END Ampeln. 


Das Implementationsmodul realisiert 
Ampel als Zeiger auf eine Menge vom 


Typ AmpelFarbe, in der der Zustand der 
Ampel gehalten wird. MakeAmpel und 
KillAmpel richten die dynamische Va- 
riable per ALLOCATE und DEALLO- 
CATE ein. Sicherheitshalber wird beim 
Löschen der Ampel der Zeiger auf NIL 
gesetzt. 


GetAmpel und SetAmpel benutzen wie 
gewohnt eine dynamische Variable per 
Dereferenzierung. SwitchAmpel ist 
schon aus der zweiten Aufgabe im ach- 
ten Teil dieser Serie bekannt, arbeitet 
hier aber auf einer dynamischen Varia- 
blen. 


IMPLEMENTATION MODULE Ampeln; 

(* R. Tolksdorf/ST-Computer 
Version*: 14.09.89 15:19 *) 

FROM SYSTEM IMPORT TSIZE; 

FROM Storage IMPORT ALLOCATE, 

DEALLOCATE ; 


TYPE Ampel = POINTER TO 
AmpelFarbe; 
(*von AmpelFarben =(Rot, Gelb, 
Gruen); 
.DEF AmpelFarbe =SET OF 
AmpelFarben;*) 


PROCEDURE MakeAmpel (VAR a:Ampel); 
BEGIN 

ALLOCATE (a, TSIZE (AmpelFarbe)); 
END MakeAmpel; 


PROCEDURE KillAmpel(VAR a:Ampel); 
BEGIN 

DEALLOCATE (a); 

a:=NIL; 
END KillAmpel; 


PROCEDURE SetAmpel (a:Ampel; 
f:AmpelFarbe); 
BEGIN 
arı=$; 
END SetAmpel; 


PROCEDURE 
GetAmpel (a:Ampel) :AmpelFarbe; 
BEGIN 
RETURN a’; 
END GetAmpel; 


(* Entspricht der Antwort zur 
2.Hausaufgabe aus Teil 8 *) 


PROCEDURE SwitchAmpel (a:Ampel); 
BEGIN 
IF (Gruen IN a‘) THEN 
a*:=AmpelFarbe{Gelb} 
ELSIF ((Rot IN a“) AND 
(Gelb IN a*)) THEN 
a*:=AmpelFarbe{Gruen} 
ELSIF (Gelb IN a“) THEN 
a*:=AmpelFarbe{Rot} 
ELSE 
a‘:=AmpelFarbe{Rot, Gelb} 
END; 
END SwitchAmpel; 


END Ampeln. 
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Beim Aufruf von Count muß eine Proze- 
durvariable des Typs /ntProz übergeben 
werden. 


Die Flexibilität in diesen Beispielen ist 
noch nicht ganz offensichtlich. Sie könn- 
ten aber ein Programm schreiben, in dem 
der Benutzer zur Laufzeit zwischen ver- 
schiedenen Funktionen auswählt, auf die 
Routinen angewendet werden können. 
Denken Sie nur an einen Funktions-Plot- 
ter. In einer CASE-Anweisung würde 
dann einer Variablen f die ausgewählte 
Funktion zugewiesen. Die restlichen Tei- 
le des Programms würden nur noch mit 
der Variablen f arbeiten und sind damit 
unabhängig von der statischen Notierung 
eines bestimmten Funktionsaufrufs. 


Abschließend bleibt noch die Frage, wel- 
chen Typ parameterlose Prozeduren ha- 
ben. Bei ihnen ist die Liste der Parameter- 
typen leer, jedoch muß man - wie bei 
Funktionen - die Klammern notieren: 


TYPE ParamloseProz = PROCEDURE(); 


Für PROCEDURE() ist die Abkürzung 
PROC vordefiniert. 


Prozedurvariablen haben also einen Typ, 
der sich aus den Parametertypen und de- 
ren Reihenfolge ergibt. Sie können in 
Zuweisungen verwendet werden, wobei 
es allerdings keinerlei Rechenoperatio- 
nen gibt. Eine Prozedurvariable kann als 
Anweisung verwendet werden, was ei- 
nem Aufruf der Prozedur entspricht, die 
sie als Wert hat. 


Nebenläufigkeit 


Üblicherweise hört man viel von Multi- 
tasking-Betriebssystemen, z.B. beim 
AMIGA oder dem erheblich professio- 
nelleren UNIX, das es in unzähligen 
Versionen auch z.B. als XENIX oder 
SINIX gibt. Auf dem ATARI ST gibt es 
mehrere Multitasking-Betriebssysteme 
wie OS-9 oder MINIX. Modula-2 ermög- 
licht es, nebenläufige Programme unab- 
hängig vom Betriebssystem zu schreiben. 


Aber um nicht zuviele Hoffnungen zu 
wecken: Mit den Konstrukten von Modu- 
la direkt kann man nicht programmieren, 
daß zwei Zuweisungen gleichzeitig aus- 
geführt werden sollen. Jedoch lassen sich 
über Standard-Features von Modula 
Module programmieren, die eine solche 
parallele Ausführung unterstützen. 


Doch zunächst ein paar theoretische 
Überlegungen. Wir wollen, daß der Rech- 
ner mehrere Dinge gleichzeitig erledigt, 
also parallel. Ein Mikro-Computer hat 
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Ihre Implementierung müßte die gleiche 
Struktur im Definitionsmodul aufwei- 
sen und auch beim Umgang mit den dy- 
namischen Variablen der hier abge- 
druckten Lösung sehr ähnlich sein. 


3. Das Programm zum Aufsummieren 
beliebig vieler Werte und zur Berech- 
nung von deren Mittelwert lautet: 


MODULE A3; 


FROM INTLists IMPORT List,MakeList, 
KillList, First, AtLast, 
Next, SetValue, 
GetValue, AppendElement, 
AtFirst; 
FROM InOut IMPORT WriteString, 
WriteLn, WriteInt, ReadInt; 
VAR L:List; 
i, WerteAnzahl, Wert, Summe : 
INTEGER; 
BEGIN 
WriteString (‘Wieviele Werte? ‘); 
ReadInt (WerteAnzahl); WriteLn; 
WriteString(‘\Werte eingeben’); 
WriteLn; 
MakeList (L); 
FOR i:=1 TO WerteAnzahl DO 
ReadInt (Wert); WriteLln; 
AppendElement (L); 
SetValue (L,Wert); 
END; 
Summe:=0; 
First (L); 
REPEAT 
Summe :=Summe+GetValue (L); 
Next (L); 
UNTIL AtLast (L); 
IF -AtFirst (L) THEN 
Summe :=Summe+GetValue (L); 
END; 
WriteString(‘'Summe aller Werte: ’); 
WriteInt (Summe,5); WriteLn; 
WriteString ( "Mittelwert: ’); 
WriteInt (Summe DIV WerteAnzahl, 5); 
WriteLln; 
KillList (L); 
END A3. 


aber typischerweise nur einen Prozessor, 
der immer nur einen Rechenschritt 
gleichzeitig ausführen kann. Daher arbei- 
tet er immer sequentiell, d.h. die Anwei- 
sungen werden Schritt für Schritt nach- 
einander ausgeführt. 


Selbst in der Hochsprache Modula-2 fin- 
det sich diese Sequentialität. Das Semiko- 
lon “;” trennt nach allem, was Sie bisher 
gelernt haben, nur die einzelnen State- 
ments, so daß der Compiler das Ende 
einer Anweisung erkennen kann. Man 
kann es aber auch so interpretieren, daß 
‘“” bedeutet, “führe das Statement vor 
dem ; aus und danach das nächste”. Damit 
sequentialisiert das Semikolon den Pro- 
grammtext. 


Anworten von Teil IX 


Nach dem Abfragen der Anzahl der zu 
verarbeitenden Werte wird per Make- 
List die Liste eingerichtet. Die einzel- 
nen Zahlen fragt das Programm in der 
FOR-Schleife ab. In jedem Durchlauf 
richtet es ein neues Listenelement per 
AppendElement ein und schreibt den 
eingegebenen Wert mit SetValue in die 
erzeugte dynamische Variable. 


Im Verarbeitungsteil muß die Summe 
aller Werte ermittelt und in der Varia- 
blen Summe vermerkt werden. Dazu 
setzt First den aktuellen Listenzeiger an 
den Anfang. Mit GerValue wird der 
aktuelle Werte Summe hinzuaddiert 
und danach der Listenzeiger mit Next 
ein Element weitergesetzt. Die Schleife 
endet, wenn das letzte Element erreicht 
ist. 


Dieses muß nun noch hinzuaddiert wer- 
den. Es gibt dabei eine Ausnahme, näm- 
lich die Liste mit nur einem Element. 
Dann liefern ArFirst und ArLast TRUE, 
und der Wert ist schon in der Schleife 
verarbeitet worden. 


Der Rest des Programms gibt einfach 
die Summe und den errechneten Mittel- 
wert aus. Abschließend säubert der 
Aufruf von KillList den Speicher. 





Da immer nur ein Statement ausgeführt 
wird, weiß man genau, welchen Zustand 
die Variablen vor und nach einem State- 
ment haben. Hätten wir eine parallele 
Programmierung, bei der zwei State- 
ments gleichzeitig zu zwei anderen aus- 
geführt würden, könnte man nicht genau 
sagen, welches Statement wann beendet 
ist. Damit wäre auch der Variablenzu- 
stand während der Ausführung nicht fest- 
stellbar. Es tun sich also Probleme auf, 
Zustände zu bestimmten Zeitpunkten 
vorherzusagen. 


Was für eine Maschine bräuchte man, um 
zwei Anweisungen gleichzeitig auszu- 
führen? Einen Rechner mit zwei Prozes- 
soren natürlich. Die Anweisungen müß- 


ten jeweils einem Prozessor zugewiesen 
werden, der sie dann ausführt. Aber was 
wäre, wenn wir jetzt drei Anweisungen 
gleichzeitig rechnen lassen wollten, oder 
fünf oder ...? 


Da man nicht jedesmal einen neuen Rech- 
ner bauen kann, muß das Problem per 
Software gelöst werden. Diese Software 
hat die Aufgabe, die vorhandenen Prozes- 
soren so zu steuern, daß sie ein Stück an 
dieser, ein Stück an jener Anweisung 
arbeiten. Ist diese Steuerung einigerma- 
ßen gerecht, werden alle Anweisungen 
irgendwann abgearbeitet sein. 


Aber ist das noch wirklich parallel? Nein, 
denn die vorhandenen Prozessoren arbei- 
ten nacheinander einmal an dieser, ein- 
mal an jener Aufgabe. Richtigerweise 
muß man ein solches Verhalten “quasi- 
parallel” nennen. 


Aber wir schweifen bei der Betrachtung 
des Problems etwas ab. Wir wollen ledig- 
lich mehrere Anweisungen quasi-parallel 
aufeinem Prozessor ablaufen lassen. D.h. 
es gibt nur einen Prozessor, der auf die 
verschiedenen Aufgaben möglichst ge- 
recht angesetzt werden muß. Genau das 
läßt sich in Modula unabhängig vom 
Betriebssystem beschreiben. 


Genauer betrachtet 


Der Begriff “verschiedene Aufgaben” ist 
vielleicht etwas zu schwammig. Eine 
Reihe von Statements, die zusammen ein 
Problem bilden, an dem der Prozessor 
gleichzeitig zu einem anderen arbeiten 
soll, nennen wir entsprechend den Bezei- 
chungen für Modula-2 “Co-Routine”. 
Stellen Sie sich unter einer Co-Routine 
eine Art Prozedur vor, die quasi-parallel 
zu einer anderen ausgeführt werden soll. 


Eine solche Co-Routine hat einen be- 
stimmten Zustand. Dieser besteht einer- 
seits - wie bei einer Prozedur - aus einer 
Reihe von lokalen Variablen, die im 
Rechner auf einem Stapelspeicher abge- 
legt sind. Für jede Co-Routine ist ein 
Speicherbereich nötig, in dem diese Va- 
riablen liegen. Da der Prozessor “immer 
ein Stück” in einer Co-Routine arbeiten 
und dann zu einer anderen wechseln soll, 
gehört zum Zustand einer Co-Routine 
auch noch die Information darüber, an 
welcher Stelle der Prozessor weiterarbei- 
ten muß, wenn er “ein weiteres Stück” 
darin rechnen soll. 


Was geschieht, wenn der Prozessor ver- 
anlaßt wird, in einer anderen Co-Routine 
zu arbeiten? Sämtliche Zustandsinforma- 
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tionen der aktuellen 
Co-Routine müssen 
gerettet werden, 
eineneueCo-Routi- | var Kol, Ko2 : 
ne ist auszuwählen zul, 2u2 
und deren Zustand 
muß wiederherge- 
stellt werden. 


MODULE CoDem; 
FROM SYSTEM 
FROM Process 


BEGIN 
Dieses Umschalten 
in eine andere Co- 
Routine nennt man 
Kontextwechsel. Es 
handelt sich um die grundlegenste Opera- 
tion, die man für parallele Routinen benö- 
tigt. 


Listing I 


Jetzt in Modula 


In einem ersten Beispiel sollen zwei Co- 
Routinen arbeiten, von denen eine von 0 
an einen INTEGER hochzählt und die 
Werte ausgibt. Die zweite Co-Routine 
arbeitet analog, nur daß von 1000 herab- 
gezählt werden soll. Die entsprechenden 
Anweisungen sind: 


PROCEDURE Ki; 
VAR i:lNTEGER; 
BEGIN 
i=-1; 
LOOP 
k=i+1; 
Writelnt(i,5); Writeln; 
END; 
END Ki; 


und 


PROCEDURE K2; 
VAR i:INTEGER; 
BEGIN 
:=1001; 
LOOP 
i=i-1; 
Writelnt(i,5); WriteLn; 
END; 
END K2; 


Die Co-Routinen sind zunächst mit unbe- 
dingten Schleifen versehen; eine Abfrage 
auf einen Endwert wird später eingebaut. 


Nun sind Co-Routinen aber nicht einfach 
Prozeduren. In einem normalen Pro- 
gramm gibteseineneinzigenZustandund 
einen Punkt, an dem momentan gerechnet 
wird. Bei Co-Routinen benötigt jede ei- 
nen eigenen Zustand. In Modula muß 
dieser zunächst eingerichtet und die Co- 
Routine angemeldet werden. 


Alle Prozeduren für Co-Routinen sind im 
Modul Coroutines oder Process zusam- 
mengefaßt (in älteren Systemen können 
sie auch in SYSTEM stehen). In LPR- 
Modula müssen Sie Process benutzen. 


Die Prozedur zum Einrichten einer Co- 
Routine heißt NEWPROCESS. Sie erhält 


PROCEDURE Kl ... 
PROCEDURE K2 ... 


IMPORT ADDRESS, ADR ; 
IMPORT PROCESS, NEWPROCESS, TRANSFER ; 


PROCESS; 


: ARRAY [0..1000] OF INTEGER; 


NEWPROCESS (K1,ADR (Zul) ,SIZE(Zul),Kol); 
NEWPROCESS (K2,ADR (Zu2) ,SIZE (Zu2) ,‚Ko2); 





vier Parameter. Der erste ist eine parame- 
terlose Prozedur, die die Co-Routine be- 
schreibt, also im Beispiel K] bzw. K2. 


Die nächsten beiden Parameter beschrei- 
ben einen Speicherbereich, in dem der 
Zustand der Co-Routine gehalten wird, 
also der Stack und weitere Informationen. 
Benötigt wird die Angabe eines Speicher- 
bereiches und dessen Größe. Schließlich 
setzt NEWPROCESS eine Co-Routinen- 
Variable, über die die installierte Co- 
Routine angesprochen werden kann. Sie 
hat hier den Typ PROCESS aus Process. 
Dies ist allerdings nur wieder speziell für 
den LPR-Compiler nötig. Es kann sein, 
daß in Ihrem System ADDRESS verwen- 
det wird. PROCESS ist zwar als ein 
POINTER implementiert und eigentlich 
ist ja ein Zeiger kompatibel zu AD- 
DRESS. Wegen der Typenstriktheit 
bemängelt LPR jedoch einen Fehler. 


Im Beispiel müßte das Rahmenprogramm 
mit dem Anmelden der Co-Routinen wie 
in Listing ] aussehen. Es werden zwei Co- 
Routinen angemeldet. Die Prozedur KI/ 
beschreibt die Co-Routine Ko/ und erhält 
den Speicher ab ADR(Zul) mit der Größe 
SIZE(Zul). Analog wird Ko2 eingerich- 
tet. NEWPROCESS erzeugt die Co-Rou- 
tinen, indem der Code der Prozeduren 
kopiert und ihnen der Speicher nach den 
übergebenen Parametern zugewiesen 
wird. Schließlich setzt die Routine die 
Co-Routinen-Variablen. 


Oben wurde beschrieben, daß der Wech- 
sel zwischen zwei Co-Routinen die 
grundlegende Operation für nebenläufige 
Programme ist. In Modula übernimmt 
diese Aufgabe die Prozedur TRANSFER. 


Sie hat zwei Parameter, nämlich zwei Co- 
Routinen-Variablen. Das ergibt sich aus 
den Aufgaben von TRANSFER. Die 
Operation muß den aktuellen Zustand 
abspeichern und einen anderen wieder- 
herstellen. Zu beidem wird jeweils eine 
Co-Routinen-Variable benötigt. 


Erweitern wir also die beiden Co-Routi- 


nen so, daß sie jeweils einen TRANSFER 
durchführen. 
PROCEDURE K1; 
VAR i:INTEGER; 
BEGIN 
i=-1; 
LOOP 
b=i+1; 
Writelnt(i,5); Writeln; 
TRANSFER(Ko1,Ko2); 
END; 
END K1; 


und 


PROCEDURE K?2; 
VAR i:INTEGER; 
BEGIN 
i:=1001; 
LOOP 
i=i-1; 
Writelnt(1,5); WriteLn; 
TRANSFER(Ko2,Ko1); 
END; 
END K2; 


Was geschieht nun, wenn die beiden Co- 
Routinen ausgeführt werden? Nehmen 
wir an, momentan ist X/ in der Schleife 
bei der Arbeit. Es werden die Operationen 
i:=i+1; und Write...; ausgeführt. Sie ver- 
ändern den Zustand von K/, nämlich 
durch das Schreiben in i. Als nächste 
Anweisung folgt der TRANSFER. Er soll 
von der Co-Routine, die durch Ko/ be- 
zeichnet wird, indie umschalten, die unter 
Ko2 angemeldet wurde. Im Bild I sehen 
Sie diesen und die folgenden Schritte 
dargestellt. Links steht Kol, rechts Ko2, 
jeweils einschließlich ihres Zustands, 
also dem Programmzähler PC und der 
lokalen Variablen. Die jeweils schwarz 
dargestellte Co-Routine ist aktiv. Mo- 
mentan sieht die Situation wie in A) aus. 


Was passiert? Der Zustand von X] wirdin 
der Co-Routinen-Variablen Kol abge- 
legt. Sie enthält insbesondere den Wert 
des Programmzählers, der besagt, daß als 
nächstes der Schleifensprung von 
LOOP...END ausgeführt werden soll. 


Nehmen wir an, auch K2 war vorher 
genau an dieser Stelle. In Ko2 ist also der 
Zustand so vermerkt, daß die nächste 
auszuführende Anweisung die nach dem 
TRANSFER ist. Bei TRANSFER wird 
der Zustand wieder restauriert (Schritt B). 
Wir befinden und nun in Ko2. Vermerkt 
war dort der Programmzähler, also führt 
der Rechner den Sprung in X2 aus (Schritt 
C). Die folgenden Anweisungen sind 
i:=1-1; und Write...;. 


Nach diesen Anweisungen folgt in K2 
wiederum ein TRANSFER, und zwar von 
Ko2 nach Kol (Schritt D). Wie sieht die 
Situation nun aus? Gespeichert wird zu- 
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Bild 1: Die verschiedenen Zustände der Koroutinen bei den TRANSFERs 


nächst in Ko2 der aktuelle Zustand, d.h. 
der Zustand der Variablen, also i und der 
Programmzähler, der auf das Statement 
nach dem TRANSFER in X2 verweist. 


Im zweiten Schritt kann Ko/ restauriert 
werden. Wie oben beschrieben, sind dort 
die Variable i und der Programmzähler 
vermerkt. Dieser zeigt auf das Statement 
nach dem TRANSFER in X (Schritt E). 
Damit beginnt das Spielchen von neuem 
(Schritt F und G). 


Aber ganz realistisch ist diese Beschrei- 
bung noch nicht. Zunächst muß der ganze 
Ablauf des Hin- und Herschaltens zwi- 
schen den Co-Routinen angeworfen wer- 
den. Und er muß irgendwann zu einem 
Ende kommen. 


Zum Starten der Co-Routinen muß ir- 
gendwann die Kontrolle vom Hauptpro- 


gramm - damit sind die “normalen” State- 
ments zwischen BEGIN und END eines 
Moduls gemeint - auf eine der Co-Routi- 
nen übergehen. Sehen wir das Hauptpro- 
gramm als Co-Routine an, für die schon 
Arbeitsspeicher eingerichtet wurde, so 
reicht ein einfaches TRANSFER, um die 
Co-Routinen in Gang zu bringen. Dazu 
benötigt wird natürlich eine dritte Co- 
Routinen-Variable, Main. Der TRANS- 
FER speichert in ihr den Zustand des 
Hauptprogramms, den Programmzähler. 


Und wie enden Co-Routinen? Im Prinzip 
nie, ein reales Programm muß jedoch 
irgendwann zum Schluß kommen. Daher 
wird in einer Co-Routine eine Abfrage 
eingebaut, die eventuell mit einem ab- 
schließendem TRANSFER zum Haupt- 
programm zurückschaltet. Dort kann es 
dann wie in einem normalen Programm 
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MODULE CoDem; 
FROM SYSTEM 
FROM Process 
FROM InOut 


IMPORT ADDRESS, ADR ; 


VAR Kol, Ko2, Main : 
Zul, Zu2 : 


PROCESS; 


PROCEDURE Kl; 
VAR i:INTEGER; 
BEGIN 








i:=i+l; 
IF i>100 THEN 
TRANSFER (Kol,Main); 
END; 
WriteInt (i,5); Writeln; 
TRANSFER (Kol,Ko2); 
END; 
END Kl; 


PROCEDURE K2; 
VAR i:INTEGER; 
BEGIN 
i:=1001; 
LOoP 
i:=i-1; 
WriteInt (1,5); WriteLn; 
TRANSFER (Ko2, Kol); 
END; 
END K2; 


BEGIN 


NEWPROCESS (K1,ADR (Zul), SIZE(Zul) ,‚Kol); 
NEWPROCESS (K2,ADR (Zu2) ,SIZE (Zu2) ,‚Ko2); 


TRANSFER (Main,Kol); 
END CoDem. 





Listing 2 


bis zum END. weitergehen. Das Ziel des 
TRANSFERS ist in Main enthalten, so 
daß das jetzt vollständige Programm wie 
in Listing 2 aussieht. Führen Sie das Pro- 
gramm einmal aus und rekonstruieren Sie 
anhand der Bildschirmausgaben den 
Kontrollfluß! 


Synchronisation 


Nun ist diese direkte Programmierung mit 
TRANSFERs nicht sonderlich aufre- 
gend, man könnte den Kontrollfluß auch 
auf herkömmliche Weise steuern. Zudem 
hat ein solches TRANSFER einiges vom 
zurecht geschmähten GOTO, das es in 
Modula übrigens glücklicherweise nicht 
mehr gibt. 


In der Praxis benutzt man die TRANS- 
FERSs, um eine Reihe von Funktionen zu 
implementieren, die ein bestimmtes 
Synchronisationsmodell beschreiben. 
Was ist das? Stellen Sie sich vor, daß 
verschiedene Co-Routinen auf einem 
Rechner quasi-parallel arbeiten und ihre 
jeweilige Rechenzeit nicht vorhersagbar 
ist, Solche Co-Routinen nennt man Pro- 
zesse. Dazu bräuchte man natürlich eine 
Art von Multitasking, beidemz.B.ein Sy- 
stemprogramm dafür sorgt, daß jeder an- 
gemeldete Prozeß eine bestimmte Zeit 
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IMPORT PROCESS, NEWPROCESS, TRANSFER ; 
IMPORT Writelnt, Writeln; 


ARRAY [0..1000] OF INTEGER; 
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lang rechnen darf, 
dann “schlafenge- 
legt” wird und ein 
anderer Prozeß dran- 
kommt. Dieses wäre 
ein “Zeitscheiben”- 
Verfahren. Es könnte 
auch möglich sein, 
daß jeder Prozeß auf 
einem eigenen Pro- 
zessor arbeitet (den- 
ken SieaninOCCAM 
programmierte Tran- 
sputer). 

In einer solchen Si- 
tuation kann es zu 
Problemen kommen, 
wenn zwei Prozesse 
das gleiche tun oder 
sich untereinander 
verständigen wollen. 
So könnten gleichzei- 
tig zwei Prozesse auf 
denselben Block der 
Festplatte schreiben 
wollen, oder ein Sor- 
tierprozeß einem 
Druckprozeß mittei- 
len, daß z.B. ein Feld 
fertig sortiert ist. Da- 
mit keine Konflikte 
entstehen und die Prozesse wie ge- 
wünscht zusammenarbeiten, müssen sie 
sich synchronisieren. Bei korrekter Pro- 
grammierung dürfen Sie dazu ausschließ- 
lich die angebotenen Synchronisations- 
funktionen benutzen. 


Diese Synchronisationsfunktionen sor- 
gen dafür, daß der Kontrollfluß geregelt 
wird. Nehmen wir das Beispiel mit dem 
gleichzeitigen Versuch, die Festplatte zu 
beschreiben. In dem Synchronisations- 
modell, das hier beschrieben wird, müs- 
sen beide Prozesse mit einem Funktions- 
aufruf bekanntgeben, daß sie jetzt diese 
Operation vornehmen wollen. Nennen 
wir die Funktion P, dann hieße der Aufruf 
jeweils P(festplatte). Da die Prozesse kor- 
rekt programmiert sind, geben sie nach 
Ausführung des Plattenzugriffs bekannt, 
daß sie aus diesem Programmabschnitt 
heraus sind. Nennen wir diese Funktion 
V, so hätten wir das Statement 
V(festplatte). 


Die Routinen P und V enthalten nun die 
Steuerung zum Kontrollfluß per TRANS- 
FER. Was muß geschehen? Bei P ist zu 
prüfen, ob vielleicht ein anderer Prozeß 
P(festplatte) aufgerufen hatte und noch 
nicht mit V(festplatte) die Beendigung der 
Arbeit bekanntgegeben hat. Ist dies der 


Fall, wird der Prozeß in einer Liste ver- 
merkt und braucht auch nicht mehr bei 
dem oben genannten automatischen Zeit- 
scheiben-Verfahren berücksichtigt zu 
werden. In dieser Liste finden sich also 
geordnet alle Prozesse, die auf die Freiga- 
be warten. Ist die Plattenbenutzung unkri- 
tisch, wird lediglich vermerkt, daß ein 
Prozeß momentan an der Harddisk arbei- 
tet. 


Bei V gibt es wiederum zwei Möglichkei- 
ten. Befinden sich in der angesprochenen 
Liste Prozesse, die bei einem P aufgelau- 
fen sind, kann der erste in der Liste aus ihr 
entfernt und aktiviert werden. Dazu wür- 
de man in Modula selbstverständlich ein 
TRANSFER verwenden. Die anderen 
müssen weiterhin warten, und nach wie 
vorarbeitetein Prozeß mit der Platte. Gibt 
es keine solchen Prozesse, ist die Arbeit 
mit der Festplatte unkritisch, und das 
kann vermerkt werden. Dann würde der 
nächste Prozeß, der ein P aufruft, sofort 
drankommen. 


P und V sorgen also dafür, daß immer nur 
ein Prozeß in einem geschützten Ab- 
schnitt arbeiten kann. Sie gewährleisten 
auch, daß alle Prozesse, die einmal ein P 
aufgerufen haben, irgendwann bei einem 
V aktiviert werden. Für die Aktivierung 
sorgt die TRANSFER-Routine, die den 
Zustand der wartenden Prozesse einfriert. 
Informatiker wissen natürlich längst, wie 
dieses Synchronisationsmodell genannt 
wird: “Semaphore”. Man geht dabei von 
einem “kritischen Abschnitt” aus, einem 
Programmteil, bei dem ein Prozeß nicht 
von anderen gestört werden darf. Der 
Name der P-Operation stammt von “Pas- 
sieren” - der Prozeß will quasi die Schran- 
ke zum kritischen Abschnitt passieren. 
Entsprechend kommt V von “Verlassen” 
- der Prozeß verläßt den kritischen Ab- 
schnitt. Der Schöpfer dieses ganzen 
Modells ist einer der bekanntesten Infor- 
matiker, E.W. Dijkstra. 


Sie ersehen aus dieser langen Beschrei- 
bung, daß die Implementierung der Funk- 
tionen nicht unbedingt einfach ist. Bei der 
Arbeit zu dieser Serie hat sich herausge- 
stellt, daß sie den Umfang einer Folge 
überschreiten würde. Zudem haben eini- 
ge Modula-Systeme ihre Besonderheiten 
in diesem Bereich, dieser Teil wird von 
Modula für den kommenden DIN-Ent- 
wurf überarbeitet; und schließlich bietet 
das GEMDOS leider so wenig Unterstüt- 
zung für ein Zeitscheibenverfahren, daß 
ich auf eine vollständige Darstellung hier 
verzichten muß. 


Es gibt weitere Synchronisationsmodelle, 
die bekanntesten sind die Monitore und 
Signale. Schauen Sie doch einmal in Ih- 
rem Modula-System nach, ob vielleichtin 
Modulen wie Process oder Signals ent- 
sprechende Routinen zu finden sind. 


Ausblick 


Damit sind wir zusammen am Ende dieser 
Einführung in Modula-2 angelangt. In der 
nächsten, abschließenden Folge werden, 
wie angekündigt, noch einzelne weitere 
Aspekte und einige Leseranfragen ge- 
klärt. 


Sie haben nun einen Überblick und viel- 
leicht auch einen Einblick in die wichtig- 
sten Features von Modula-2 gewonnen. 
Sicher sind viele kleinere Tricks und 
Programmiermöglichkeiten offengeblie- 
ben. Dennoch glaube ich, daß Sie nun - 
insbesondere nach Beschäftigung mit den 
Aufgaben - in der Lage sein müßten, auch 
etwas anspruchsvollere Projekte in Mo- 
dula-2 zu verwirklichen. 


Vielleicht haben Sie auch erkannt, daß die 
gesamte Serie einen Programmierstil 
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andeutet, der sehr konservativ ist und auf 
implementationsnahe Tricks verzichtet. 
So habe ich beispielsweise bewußt nicht 
mit den verfügbaren Modulen zur Benut- 
zung von GEMDOS gearbeitet und dafür 
den Standardmodulen den Vorzug gege- 
ben. Vielleicht haben Sie gesehen, daß 
Modula-2 diesen Programmierstil durch 
die hohen Anforderungen - z.B. bezüglich 
der Typenstriktheit - fördert. 


Zum Schluß des in sich geschlossenen 
Teils der Serie noch eine Bitte: Als Autor 
wäre ich für jede Zuschrift dankbar, die 
den Kurs, der Ihnen nun komplett vor- 
liegt, bewertet. Welche Teile fanden Sie 
leicht, welche schwer verständlich? Wo 
würden Sie mehr Informationen und Bei- 
spiele erwarten? Was hat Ihnen gefehlt, 
welche Teile fanden Sie überflüssig? 
Zuschriften wie gewohnt an ST-Compu- 
ter, z. Hd. R.Tolksdorf. Damit verab- 
schiede ich Sie zum vorletzten Mal bis in 
vier Wochen, dann mit einem Frage-Ant- 
wort-System zur Klärung noch offener 
Fragen und einem besonderen Bonbon. 


RT 


+ Brutto-, 


Hausaufgaben 


. Was macht folgendes Statement, 


und welche Variablen müßten 
dazu wie deklariert sein? 


Funktion*(10.0); 


. Schreiben Sie unter Benutzung 


des Moduls INTLists eine 
Prozedur ProcessList, die eine 
beliebige Prozedur auf alle Li- 
stenelemente anwendet. Ihr soll 
jeweils der Wert eines Listenele- 
ments als Parameter übergeben 
werden. 


. Es gibt auch ein Modell mit Se- 


maphoren, bei dem mehrere Pro- 
zesse in einem kritischen Ab- 
schnitt arbeiten können. Be- 
schreiben Sie, wie der geschilder- 
te Ablauf von P und V dafür geän- 
dert werden müßte. 
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+ Individuelle Formulare 
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Numerische 
Mathematik 


In dieser Folge befassen wir uns mit der 
Differential- und Integralrechnung. 
Dazu werden einige Begriffe erklärt 
und Beispielprogramme zu grundle- 
genden Algorithmen aufgeführt. 


Was eine Funktion ist, wissen wir bereits 
aus der ersten Folge. Funktionen haben 
spezielle Eigenschaften. Stetige Funktio- 
nen haben einen Graphen, den man quasi 
mit einem Linienzug zeichnen kann, d.h. 
wenn man ihn zeichnen wollte, bräuchte 
man den Stift nicht abzusetzen. Ist eine 
Funktion stetig differenzierbar, verläuft 
der Graph so schön glatt, daß keine 
“Knicke” auftauchen. Wird eine Funktion 
‚differenziert, erhält man die erste Ablei- 
tung dieser Funktion, genannt’. Auch die 
Ableitung, f kann über die Eigenschaften 
Stetigkeit und Differenzierbarkeit verfü- 
gen. Ist differenzierbar, kommt man zur 
zweiten Ableitung f’'. Sofern also Ablei- 
tungen nullten, ersten, zweiten, ... , n-ten 
Grads differenzierbar sind, können wie- 
der Ableitungen einer höheren Stufe ge- 
bildet werden. 


Es gibt Funktionen, die einmal, aber nicht 
zweimal stetig differenzierbar sind, auch 
welche, die nicht einmal stetig sind. 
Nehmen wir als Beispiel die Betragsfunk- 
tion f(x)=/x/. Die Funktion ist bei x=0 
nicht differenzierbar, da der zugehörige 
Graph dort einen “Knick” hat. 


Ist eine Funktion f stetig, hat sie eine 
Stammfunktion F, d.h. die Ableitung von 
F ist wieder f. Auch wenn die Existenz 
einer Stammfunktion bekannt ist, kann es 
unter Umständen sehr schwierig sein, 
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Teil 3 


Integration und 


Differentiation 


diese zu bestimmen. 
Aber mit einer 
Stammfunktion F 
von f kann man eine 
Funktion f integrie- 
ren,d.h. den Wert des 
Integrals / von füber 
einem Intervall /a;b] 
angeben. Zudem gibt 
es auch noch nicht- 
stetige Funktionen, 
die trotzdem inte- 
grierbar sind. Da für 
viele Probleme nur 
ein Näherungswert 
eines Integrals benö- 
tigt wird, greifen in 
diesen Fällen unsere 
Methoden der Nume- 
rischen Mathematik! 


Ableitungen und Integrale haben neben 
theoretischen auch anschauliche Bedeu- 
tungen. Ein Integral von iüber einem In- 
tervall gibt die Fläche an, die der Graph 
von fin diesem Intervall und die (x-)Ko- 
ordinatenachse umspannen. Dabei wer- 
den Flächen unterhalb der Koordinate- 
nachse negativ, die Flächen oberhalb 
positiv gezählt. Die erste Ableitung einer 
Funktion in einem Punkt x gibt die Stei- 
gung des Graphen der Funktion in diesem 
Punkt an, die zweite sagt etwas über das 
Krümmungsverhalten aus. 


Der Integralbegriff, der hier zugrunde 
liegt, stammt von Bernhard Riemann 
(geb. 17.9. 1826 in Breselenz, gest. 20.7. 
1866 in Salesca). Er wird in der Regel 
über Treppenfunktionen eingeführt. 


#'(x,) = lin 


xx, 


b 
So dx = Ft) - Fi) = I 
a 


fx) -flxo) 
sek, 


Graph fx) 





Hierzu werden die Koordinatenachse in 
kleine Teilintervalle unterteilt und dann 
die Flächen von passenden Rechtecken 
zwischen Graph und x-Achse berechnet 








(siehe Bild 2). Näherungswerte für den 
korrekten Flächeninhalt erhält man damit 
durch geeignete Verkleinerung der Inter- 
vallängen zwischen den Intervallgrenzen. 
Aber wir wollen die Theorie ja nicht zu 
weit treiben, kommen wir zur Numerik. 


In der letzten Folge haben wir Interpola- 
tionsformeln kennengelernt. Darunter 
war auch die Lagrangesche. Integriert 
man diese explizit, so erhält man einen 
Satz von sehr bekannten Näherungsfor- 
meln für den Integralwert. Die explizite 
Integration bereitet keine größeren 
Schwierigkeiten, da die Lagrangesche In- 
terpolationsformel ein Polynom ist. Die 
entstehenden Formeln heißen Newton- 
Cotes-Formeln. 


Problemstellung: 





Die einzelnen Formeln, die sich nach der 
Anzahl der Stützstellen des Interpola- 
tionsproblems richten, haben wiederum 
Namen. So entsteht aus nur einer Stütz- 
stelle die bekannte Trapezregel, aus zwei 
Stützstellen die Simpson-Regel (nach 
Thomas Simpson, geb. 20. 8. 1710 in 
Market-Bosworth und gest. 14. 5. 1761 
ebenda), aus drei Stützstellen die 3/8- 
Regel, aus vier Stützstellen die Milne- 
Regel und aus sechs Stützstellen die 
Weddle-Regel. 


Simpsansche Formel: 


F=B32 (He) + af25B) + H)) + Fehler 





Bei den Formeln von Newton-Cotes gel- 
ten die Intervallgrenzen immer als Stütz- 
stellen. Bei einer anderen Gruppe von 
Integrationsformeln wie z. B. den For- 
meln von Euler und Maclaurin ist dies 
nicht der Fall. 


Als Beispiel zu den Newton-Cotes-For- 
meln wurde für das Listing | die Simp- 
son-Regel benutzt. Allerdings wurde das 
Intervall weiter unterteilt, um eine höhere 
Genauigkeit zu erreichen. Damit haben 
wir die sogenannte zusammengesetzte 
Simpson-Regel. 


Berechnet man nicht wie bei den New- 
ton-Cotes-Formeln die Stützstellen und 
damit die Gewichte, sondern wählt Stütz- 
stellen und Gewichte so, daß eine maxi- 
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male Genauigkeit 
erreicht wird, 
kommt man zu den 
Integrationsfor- 


meln von Gauß. 
1 Stützstelle: 
Als Stützstellen er- 


geben sich dann ge- 
rade die Nullstellen 
eines passenden 
Legendre-Poly- 
noms. Auf diese 
Berechnung wol- 
len wir hier jedoch nicht näher eingehen. 


Die Integrationsformeln von Gauß sind 
also genauerals die Formeln von Newton- 
Cotes. Sie haben aber einen Nachteil, der 
gerade noch nicht klar wurde: Die Be- 
rechnung der Stützstellen ist aufwendi- 
ger. Außerdem erhält man nicht ganz so 
“schöne” Werte für die Koeffizienten, 
wie es z.B. bei den Newton-Cotes-For- 
meln der Fall ist. 


Das zweite Beispielprogramm zeigt die 
Implementation dreier Gaußscher Inte- 
grationsformeln. An den Ergebnissen 
erkennt man jedoch, daß auch in unserem 
Beispiel die Formeln von Gauß genauer 
sind als die von Newton-Cotes. 


Geht man den anderen Weg und differen- 
ziert das Interpolationspolynom von La- 
grange, erhält man Formeln für die nume- 
rische Differentiation. Das Interpola- 
tionspolynom kann man theoretisch be- 
liebig oft ableiten und erhält dann auch 
Formeln für höhere Ableitungen, die je- 
doch mit äußerster Vorsicht zu genießen 
sind, da sie meistens nicht genauer wer- 
den. 


Man überlege sich dazu nur, daß man die 
Funktion sin(x) mit einem Interpolations- 
polynom lokal nähert. Beliebig hohe 
Ableitungen werden nie konstant gleich 
0, aber wenn man das Interpolationspoly- 
nom ausreichend oft differenziert, wirdes 
irgendwann konstant gleich 0. 


Trotzdem erhält man zumindest für die 
erste und zweite Ableitung interessante 
Formeln. Sie heißen je nach Anzahl ihrer 
Stützstellen 3-, 4-, 5-Punkte-Formel, ... . 
(Die Formeln finden sich in Listing 3.) 


Das dritte Beispielprogramm wertet drei 
Formeln dieser Art aus. Im Vergleich mit 
dem im folgenden beschriebenen Rom- 
berg-Verfahren erhält man jedoch mei- 
stens schlechtere Werte. Das Romberg- 
Verfahren hat einen Vorteil, der hier vor- 
weggenommen werden soll: Die Genau- 
igkeit ist nicht nur höher, sie kann vorher 
bestimmt werden. 








Fr2n fca5B) 


2 Stützstellen: Fach (fe25E En rB 3) 


3 Stützstelen: Feng a5b- Iw- agb. 





Ähnlich den Interpolationsverfahren von 
Newton und Neville aus der letzten Folge 
unserer Serie kann man auch beim Rom- 
berg-Verfahren ein Rechenschema ange- 
ben. Es ist in Bild 7 zu sehen. Der Index, 
der oben rechts am D steht, bezeichnet 


Differentiation nach Romberg: 


Startwerte mit h,=h (Schrittweite): 


fix, +h)-flx,-h) 
Su X 
DO) gr 


weitere Werte mit h=h,/ 2: 


1 


Dt) (OL) DEE) 


den Schritt, der Index unten rechts, der 
wievielte Wert des passenden Schritts 
vorliegt. Ausgehend von der Anzahl der 
Werte pro Schritt wird die Schrittweite hj 
gewählt. Sie wird für jeden folgenden 
Wert eines Schritts halbiert. 


Das Rechenverfahren wird solange fort- 
gesetzt, bis die gewünschte Genauigkeit 
erreicht ist. Das ist genau dann der Fall, 





wenn - wie in Listing 4 zu sehen ist - 
abs(d[1]-d[0]) unterhalb einer vorgege- 
benen Obergrenze liegt. Allerdings sollte 
man eine Maximalzahl an Schritten vor- 
geben, denn auch beim Romberg-Verfah- 
ren kann es passieren, daß Konvergenz 
nicht erreichbar ist. 


Der einzige Nachteil des Verfahrens: Die 
Programmierung, der Speicherbedarf 
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[5] Methode der Numerischen Mathematik, 
W. Böhm! G. Gose! J. Kahmann, Vieweg 


[11] Einführung in die Numerische Mathematik 1, Fe Winsbunden,.lengt.1288, 
J. Stoer, Springer Berlin! Heidelberg! New en 
York! Tokyo, 4. Aufl. 1983, S. 106ff [6] Erfolgreich programmieren mit C, J. A. 
Illik, Sybex Düsseldorf! San Franciscol 
Paris/ London, 4. Aufl. 1987 


und die Rechenzeiten sind größer als bei Literatur: 


den einfachen n-Punkte-Formeln. 


Nun sind wir schon am Ende der dritten 
Folge angelangt. In der nächsten wenden 
wir uns. einem speziellen Integrationspro- 2) 
blem zu: der Berechnung einer Lösung 

einer gewöhnlichen Differentialglei- 

chung erster Ordnung. 


Formelsammlung zur Numerischen Mathe- 
matik mit BASIC-Programmen, G. Engeln- 
Müllges/F. Reutter, Bibliographisches [7] Programmieren inC,B.W.Kernighanl D. 
Institut Mannheim/Wien/Zürich, 1. Aufl. M. Ritchie, Hanser München/Wien, 1. 
1983, S. 186ff Aufl. 1983 


[3] Numerische Mathematik, H. R. Schwarz, [8] PASCAL für Anfänger, H. Schauer, 
Teubner Stuttgart, 1. Aufl. 1986, S. 319ff Oldenbourg Wien!/München, 4. Aufl. 1982 


[#4] Numerische Methoden, Ä. Björck! G. Dahl- [10] PASCAL für Fortgeschrittene, H. Schau- 
quist, Oldenbourg München! Wien, 2. Aufl. er, Oldenbourg Wien! München, 2. Aufl. 
1979, S. 213/f 1983 


Auf bald... 


Dipl.-Math. Dietmar Rabich 


Ergebnisse der Programme: 


Integration: 

tatsächlicher Wert: 0.3333333333 

ermittelt durch 

0.3666666102 
0.3499998976 
0.3444443892 
0.3416663722 
Simpson-Regel (25 Unterteilungen) : 0.3399997366 
Simpson-Regel (30 Unterteilungen) : 0.3388886482 
0.3380951832 
Simpson-Regel (40 Unterteilungen) : 0.3374995357 

: 0.3370369821 
0.3366662074 

: 2.5000000000E-01 
: 3.3333333310E-01 
: 3.3333333333E-01 


Simpson-Regel ( 5 Unterteilungen) 

Simpson-Regel (10 Unterteilungen) : 
Simpson-Regel (15 Unterteilungen) : 
Simpson-Regel (20 Unterteilungen) : 


Simpson-Regel (35 Unterteilungen) : 


Simpson-Regel (45 Unterteilung 
Simpson-Regel (50 Unterteilungen) : 
Gauß-Integration (1 Stützstelle) 
Gauß-Integration (2 Stützstellen) 
m) Gauß-Integration (3 STützstellen) 


Differentiation: 

tatsächlicher Wert: 1.75 

ermittelt durch 

a) Romberg-Verfahren : 1.7500000000E+00 
b) 3-Punkte-Formel : 2.7500000000E+00 
c) 5-Punkte-Formel : 1.7500000000E+00 
d) 7-Punkte-Formel : 1.7500000000E+00 


NR / 
/* Beispielprogramm zur Integration mit der */ 
/* summierten Simpsonregel 

/* 

/* Entwickelt mit Turbo C. 15.02.1989 
De a sa a nn 77 


vonnauaunnr 


/* Listing 1 / by D. Rabich */ 
Fur hu (ec) MAXON Computer GmbH */ 


: /* Ein-/Ausgabe-Routinen importieren */ 
: # include <stdio.h> 


: /* Grenze zur Berücksichtigung eventueller 
Ungenauigkeiten */ 





120 ST” 11/1989 


# define FLOATFEHLER 1.0E-6 


/* Funktion £ */ 
float f(float *x) 


{ 
return ((*x)*(*x)); 


} 


/* Berechnet Integral der Funktion f zwischen a 
und b */ 
float simpson(float (*f)(), float a, float b, 
int n) 


{ 
float x, 
integ, 
h; 


integ=0; 


/* Schrittweite */ 
h=(b-a)/n; 


/* Integral berechnen */ 
£or (x=a+h/2;x<b-h/2+FLOATFEHLER;x+=h) 
integ+=(*£) (&x); 


integ*=2; 


for (x=a;x<=b+FLOATFEHLER; x+=h) 
integ+=(*f) (&x); 


return (integ*h/3); 
} 


/* Hauptprogramm */ 
void main (void) 


{ 
int n; 


/* Ausgabe bei verschiedenen Unterteilungen */ 
for (n=5;n<=50;n+=5) 
printf("Integral bei %2d Unterteilungen: 
%12.10g\n", 
n,simpson (£,0,1,n)); 


/* Auf Taste warten... */ 
getchar (); 
} 


[a a a a a a a 257 
(* Beispielprogramm zur GauP-Integration. 

(* 

(* Entwickelt mit ST Pascal Plus. 14.02.1989 
a a a a a a a SE ee 257 


(* Listing 2 / by D. Rabich 
(* (ec) MAXON Computer GmbH 


Kovoasnausunk 


HH 


program gauss_intgration; 
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(* Typ *) 
type poss_n = 0..2; 


(* Variablen *) 
var i : poss_n; 


(* Funktion £ *) 
function £ (x : real) : real; 


begin 
£:=xtx 
end; 


(* Berechnet Integral von Funktion f zwischen a 
und b *) 
function gauss (function £ (x : real) : real; 
a,b : real; 
n : poss_n) 
real; 


var fakt,h : real; 


begin 
h:=(b-a)/2; 
case n of 


(* Formel für eine Stützstelle *) 
0 : gauss:=2*h*f(ath); 


(* Formel für zwei Stützstellen *) 
1 : begin 
fakt .0/sgrt (3.0); 
gauss:=h* (f(a+h*(1.0-fakt))+ 
f(ath*(1.0+fakt))) 
end; 


(* Formel für drei Stützstellen *) 
2 : begin 
fakt :=sqrt (0.6); 
gauss:=h* (5.0*(f(ath*(1.0-fakt)) 
+£ (ath* (1.0+fakt))) 
+8.0*£ (a+h))/9.0 


end 
end; 


(* Hauptprogramm *) 
begin 


for i:=0 to 2 do 
writeln (gauss (£f,0.0,1.0,i)); 


repeat 
until keypress 


end. 


a ee 
(* Beispielprogramm zur numerischen 

Differentiation mittels ”) 
(* Differentiation des Interpolationspolynons. 


(* Entwickelt mit ST Pascal Plus. 14.02.1989 *) 


(RO) 


(* Listing 3 / by D. Rabich ”) 
(* (ec) MAXON Computer GmbH *) 


Program intpol_differentiation; 


(* Typ *) 
type poss_n = (drei, fuenf, sieben); 


(* Variable *) 
var i : poss_n; 


(* Funktion £ *) 
function £ (x : real) : real; 


f:sxkxtxtxtx 
end; 


(* Berechnet Ableitung der Funktion f an der 
Stelle x *) 
function diff_ intpol 
(function £f (x : real) : real; 
x,h : real; 
n : poss_n) 
: real; 


begin 
case n of 


(* 3 Stützstellen *) 
drei : diff_intpol £(x- h) 
£(x+ h)) /(2*h); 


(* 5 Stuetzstellen *) 
fuenf : diff_intpol:= £(x-2*h) 
8*f(x- h) 
8*£(x+ h) 
£(x+2*h)) /(12*h); 


(* 7 Stützstellen *) 
sieben : diff_intpol £ (x-3%*h) 
+ 9*£(x-2*h) 
-45*f(x- h) 
+45*%f(x+ h) 
- 9*£(x+2*h) 
+  £(x+3*h)) /(60*h) 


end 
end; 


(* Hauptprogramm *) 
begin 


for i:=drei to sieben do 
writeln (diff_intpol(f,0.5,1,i)); 


repeat 
until keypress 


end. 


RR) 
(* Beispielprogramm zur numerischen 

Differentiation nach dem ”) 
(* Verfahren von Romberg. 


(* Entwickelt mit ST Pascal Plus. 14.02.1989 *) 
RR) 


$F = + 
(* Listing 4 / by D. Rabich *) 
(* (ec) MAXON Computer GmbH *) 


program romberg differentiation; 


(* Konstante *) 
const real fehler = 1.0E-8; 
max_ber = 50; 


(* Funktion £ *) 
function £f (x : real) : real; 


begin 
fisxtxtxtxtx 
end; 





(* Berechnet Ableitung der Funktion f 
an der Stelle x *) 
function romberg (function £ (x : real) : real; 
x%,h : real) 
real; 


var d : array [O..max_ber] of real; 
i,j,p : short_intege 





begin 
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(* Fehlermeldung, falls Genauigkeit nicht 
(* Romberg-Verfahren *) erreicht *) 
d[0]:=(£(x+h) -£(x-h))/(2*h); : if abs (d[1]-d[0])>=real_fehler then 


Br writeln('*** Genauigkeit nicht erreicht ***'); 


repeat 
h:=h/2; 5 romberg:=d[0] 
]:=(£ (x+h) -£ (x-h))/(2*h); : end; 


0 do (* Hauptprogramm *) 
begin 


writeln (romberg (f,0.5,1)); 


repeat 
until (abs (d[1]-d[0])<real_fehler) : until keypress 
or (i>max_ber); 
end. 
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Der “Taschenrechner” 


Heute werde ich mit der Programmierung 
des Rechnerbestandteils unseres Lovely 
Helpers beginnen. Leider auch wieder 
ein recht umfangreiches Unterfangen. 
Aus organisatorischen Gründen 
wird deshalb in dieser Folge zwar 
das komplette Listing abge- 
druckt, aber nur etwa bis zur 
Hälfte kommentiert. Der 
Rest folgt dann beim 
nächsten Mal. Heute 
werden wir uns mit dem 
Resource und seiner 
Verwaltung be- 
schäftigen. 
Da die 


Wech- 
selwirkung 
zwischen Re- 
source und Pro- 
gramm dabei etwas 
umfangreicher sein wird, 
reicht das als Programmpunkt 
für heute vollständig aus. 


Resource 


Einziger Bestandteil des Resources ist 
heute der Dialog RECHNER. Er ist hof- 
fentlich in ausreichender Weise einem 
Taschenrechner nachempfunden (s. Abb. 
24). Die Eingabe erfolgt über einen Satz 
von insgesamt 35 Feldtasten. Die Ausga- 
be - einschließlich diverser Statusanzei- 
gen - erfolgt über insgesamt 10 Texte. Da 
die Feldtasten heute alle gleichartig sind - 
Flags Selectable & Exit - werde ich sie 
nicht, wie bisher, einzeln aufführen. Es 
sei auf die Abbildung verwiesen. Die 
Definitionen und die Semantik der ver- 
bleibenden Texte kann man aus Tabelle 1 
entnehmen. 


Aufgabenteilung 


Bevor es an die Implementierung des 
Taschenrechners geht, möchte ich zu- 
nächst eine Aufgabenteilung vornehmen 
und ein wenig auf die zu erwartenden 
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Probleme hinweisen. Dazu ist zu sagen, 
daß die Programmierung eines normalen 
Taschenrechners - “normal” hier im Sin- 
ne von Punkt-vor-Strich-Rechnung, 
Klammerung etc. - eine ganze Reihe von 
kleineren Tricks erforderlich macht. 


Wie wir in der nächsten Folge sehen 
werden, kommen wir dabei nicht um die 
Benutzung von Stacks zur Berücksichti- 
gung der Prioritäten (Klammern, Punkt- 
vor-Strich) herum. Eine weitere Proble- 
matik liegt darin begründet, daß beim 
Betrieb eines (guten) Taschenrechners 
eine ganze Reihe von Konventionen ein- 
zuhalten ist. Als Beispiel möchte ich die 
kurze Kommandosequenz 2 + = nennen. 
Von ihr würde man etwa erwarten, daß 2 
+ 2 = berechnet wird, also der zweite 
(nicht eingegebene) Operand aus dem 
Kontext gefolgert wird. Auch dies sollten 
wir bei der Konstruktion unseres Rech- 
ners berücksichtigen. 


Wegen der Vielschichtigkeit dieser Pro- 
bleme werden wir die Verarbeitung der 
von der Tastatur (Dialog) kommenden 
Befehle aufteilen. Und zwar in Editbefeh- 
le - sie beziehen sich ausschließlich auf 
das Edieren des momentan aktuellen 
Wertes - und Operatorbefehle - sie dienen 
der Eingabe von Operationen unter Ein- 
haltung der Prioritäten. 


Zumreinen Edieren dienen dabei die zehn 
Ziffern (BNULL - BNEUN), der Dezimal- 
punkt(BKOMMA,), die Taste zum Vorzei- 
chenwechsel (BVZW), die Exponential- 


taste (BEXP), die 
Löschtaste (BC), die Ta- 
ste zur Wahl des Berech- 
nungsmodus’ der trigono- 
metrischen Funktionen 
(BMOD) sowie die Taste zur 
Wahl der inversen Funktionen 
(BINV). 


Sämtliche übrigen Tasten - die Funk- 
tionstasten, die Klammern und die 
Grundrechenarten - sind Operatorbefeh- 
le. Demzufolge läßt sich die Arbeit des 
Taschenrechners ebenfalls unterteilen in 
einerseits das Edieren von Zahlen mit ab- 
schließender Operatoreingabe und ande- 
rerseits in die Abarbeitung von Sequen- 
zen derartiger Wert-/Operatorpaare. An 
der Schnittstelle, zwischen diesen beiden 
Teilen müssen sowohl Werte als auch 
Operatorsymbole übergeben werden. 


Beispiel: Die Berechnung von (] +2) *3 
= würde in folgenden Portionen erfolgen: 


Nr.Wert Operator 
NN ( 
2.1 + 
3.2 ) 
4. _ 2 
5.3 = 
Das Zeichen ‘_’ steht dabei für einen 


leeren Wert. Als zusätzlicher Parameter 
ist also auch noch ein Wahrheitswert zu 
übergeben, der die Gültigkeit des Opera- 
tors angibt. Wenn wir uns dem Listing 14 
zuwenden, lassen sich diese Parameter in 
der Prozedur do_edit (Zeilen 131-499) 
wiederfinden. Wert und Operator werden 
dabei direkt über die Parameterliste über- 
geben, der Wahrheitswert über die Varia- 
ble gueltig (ein Seiteneffekt von do_edit). 


Das Edieren 


Mit dem Inneren von do_edit sowie den 
Variablen und Operationen, auf die sich 
besagte Prozedur abstützt, wollen wir uns 
nun beschäftigen. Die ersten Deklaratio- 
nen von Interesse, sind damit heute die 
Konstanten des zweiten Konstanten- 
blocks (Zeilen 14-19). 


Die Bedeutung von pi dürfte wohl klar 
sein. Die nächsten drei Konstanten stehen 
für die drei Maßeinheiten, mit denen in 
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Abb. 24 
Objekt Objekttyp Länge Semantik welche möglichen Bele- 
gungen für error existieren. 
TVZ TEXT 1 Vorzeichen der Mantisse 
TMANT TEXT Mantisse inv_modus und tri_modus 
TEXPTEXT TEXT 1 Anzeige des nehmen den jeweiligen 





Tabelle 1: Die Object-Daten für den Dialog RECHNER (Abb. 24) 


den trigonometrischen Funktionen ge- 
rechnet werden kann (deg, rad, grad). Die 
beiden letzten Konstanten kennzeichnen 
den Status der Inverstaste (an, aus). 


Der einzige Typ von Interesse ist heute 
op_type.Erbeschreibt das Vokabular, das 
von der abstrakten Maschine, der näch- 
sten Folge, verstanden werden muß, um 
die Wert-/Operatorpaare interpretieren zu 
können. An der Schnittstelle von do_edit 
haben wir deshalb für die Übergabe der 
Operatoren in dieser Form zu sorgen. 


Bei den Variablen interessieren uns zu- 
nächst die Statusvariablen des Taschen- 
rechners (Zeilen 43-46). Sie besitzen fol- 
gende Bedeutung: 


error kennzeichnet den Fehlerstatus. Aus 
der Tabelle 2 können Sie entnehmen, 


Exponentialmodus 


TEXPVZ TEXT 1 Vorzeichen des 
Exponenten 

TEXPEXP TEXT 2 Exponent 

TINV TEXT 3 Statusanzeige Invers 

TM TEXT 1 Speicher enthält Wert 

TDEG TEXT 3 Winkelfunkfionen in Grad 

TRAD TEXT 3 Winkelfunktionen in 
Bogenmaß 

TGRAD TEXT 4 Winkelfunktionen in 


Altgrad (in USA üblich) 


Status der Invers- und der 
Modustaste auf. In Abhän- 
gigkeit vom tri_modus 
schwankt auch der Wert 
von t_faktor. Diese Varia- 
ble wird nämlich benutzt, 
um die trigonometrischen 
Funktionen allgemeingül- 
tig zu formulieren. 





Die nächste Rechnerstatus- 
variable ist speicher. In ihr 
wird die eine (!) Speicherstelle unseres 
Taschenrechners aufbewahrt. Dabei wird 
die Konvention getroffen, daß der Spei- 
cher als leer gilt, wenn sein Wert Null 
beträgt. 


first_rechner isteine Variable, die angibt, 


obunser Rechnerdialog neu aufdem Bild- 
schirm ist oder sich noch hier befindet. In 
Abhängigkeit hiervon wird nämlich ent- 
schieden, ob der Dialog nur wieder aus- 
geführt werden muß (redo_dialog) 
oder noch komplett zu zeichnen ist 
(do_dialog). 


gueltig ist der bereits besprochene Wahr- 
heitswert, der angibt, ob eine edierte Zahl 
auch in die Berechnung eingeht. 


Der nächste Variablenblock (Zeilen 51- 
60) ist schnell erklärt. Er beinhaltet die 


Strings, die später die Texte für das Aus- 
gabefeld aufnehmen. Die Zuordnung 
dürfte mnemotechnisch klar sein. 


Kommen wir zum Operationendeklara- 
tionsteil von do_rechner. Die erste hier 
angesiedelte Prozedur, setze_texte (Zei- 
len 62-82), dient der bereits hinlänglich 
behandelten Aufgabe, einen Dialog zu 
initialisieren. Dazu werden die gerade 
besprochenen Stringvariablen des letzten 
Variablenblocks in unseren heutigen 
Dialog eingetragen. 


Die nächste Prozedur, setze_redraw (Zei- 
len 84-97), hat nun dafür zu sorgen, daß 
die redraw-Bits sämtlicher Textfelder 
gesetzt werden. Damit wird GEM bei der 
wiederholten Ausführung des Rechner- 
dialogs (redo_dialog) gezwungen, die 
Textfelder neu zu zeichnen. Leider ge- 
schieht diese Neuzeichnung nicht auto- 
matisch, wenn nur der Textstring geän- 
dert wird. Es muß - wie im Listing - 
manuell nachgeholfen werden. 


Die letzte, kleinere Prozedur vor do_edit 
ist do_error (Zeilen 99-129). Sie hat die 
Aufgabe, gemäß dem Fehlerstatus die 
entsprechende Fehlerkennung in die Dia- 
logtexte einzutragen und den Dialog ein- 
mal auszuführen, um für die Fehlerausga- 
be anzuhalten. Dabei wird die Bedeutung 
von first_rechner ersichtlich (siehe auch 
oben). Es dient dazu, daß der Rechnerdia- 
log nur beim ersten Mal komplett ge- 
zeichnet wird, bei weiteren Aufrufen er- 
folgt lediglich eine Neuzeichnung der 
veränderten Dialogeinträge. Der Rat- 
schlag des ST Pascal-Handbuches, die 
redraw-Anweisung bei obj_setstate be- 
treffend, ist sehr wörtlich zu nehmen! Das 
redraw-Bit darf nur gesetzt werden, wenn 
der Dialog schon auf dem Bildschirm 
vorhanden ist. Wird es bei nichtvorhande- 
nem Dialog gesetzt, hat das zur Folge, daß 
bei jedem redo_dialog trotz gegensätzli- 
cher Angaben der komplette Dialog neu 
gezeichnet wird. 


Kommen wir nun zu unserer eigentlichen 
heutigen Aufgabe, der Prozedur do_edir. 
Über die Bedeutung ihrer Parameter ha- 
ben wir ja bereits gesprochen. Nun gehtes 
ans Eingemachte. 


do_edit hat vier Konstanten, die angeben, 
welchen Status die im Moment edierte 
Zahl besitzt. Zur Auswahl stehen: fertig, 
vorkomma, nachkomma und exponent. 
Die lokale Variable status nimmt genau 
einen dieser Werte auf. 


Zwei Kernstücke von do_edit möchte ich 
Ihnen etwas detaillierter vorstellen. Es 
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handelt sich dabei um die beiden Opera- 
tionen setze_zahl (Zeilen 142-298) und 
get_zahl (Zeilen 300-349). 


Die erste dieser beiden Operationen - 
setze_zahl- initialisiert die Ausgabetexte, 
entsprechend der edierten Zahl, also eine 
Umwandlung von real in string. Da wir 
dabei ein ziemlich “verteiltes” Stringfor- 
mat haben, scheiden leider die eingebau- 
ten ST Pascal-Operationen für diese Auf- 
gabe aus. Also liegt die komplette Um- 
wandlung in unserer Hand. setze_zahl 
unterscheidet dazu zunächst zwischen 
zwei Formaten: ganzzahlig und exponen- 
tial. 


Die ganzzahlige Darstellung wird dabei 
automatisch für ganze Zahlen unterhalb 
einer Million gewählt. Alle übrigen Zah- 
len werden exponential dargestellt. Unab- 
hängig vom Format kann jedoch das 
Vorzeichen bestimmt werden (Zeilen 
191-195). Die ganzzahlige Darstellung 
erfolgt, sind die notwendigen Bedingun- 
gen erfüllt (Zeile 196-197), in den Zeilen 
199-214. Für die exponentiale Darstel- 
lung wird dagegen die Prozedur 
exp_darstellung (Zeilen 147-188) be- 
nutzt. Sie trennt Mantisse und Exponent 
und formt beide separat in Strings um. Die 
Details dieser beiden Transformationen 
seien dabei dem interessierten Leser über- 
lassen. 


Wir wollen nun noch die korrespondie- 
rende Funktion - get_zahl, die Umwand- 
lung von string nach real - betrachten. Sie 
besitzt einen einfacheren Aufbau als 
setze_zahl. So erkennt man beispielswei- 
se leicht, daß die Zeilen 315-321 den 
Vorkommateil der Zahl berechnen, die 
Zeilen 322-330 den Nachkommateil. 

In 332 und 333 wird dann noch das Vor- 
zeichen zugegeben. 


Auch der Exponent berechnet sich ähn- 
lich. Man muß hier allerdings darauf 
achten, daß kein Überlauf stattfindet, 
denn der Typ real nimmt unter Pascal+ 
maximal Werte bis zu le38 auf. Die 
Bedingung für die Abschätzung eines 
Überlaufs ist recht interessant (Zeile 
344). Sie wird in ähnlicher Form sehr 
häufig beim nächsten Mal benutzt wer- 
den. 


Die weiteren lokalen Operationen 
do_edits sind weniger aufwendig und 
schnell erklärt: 


rsc_char berechnet mit einem CASE die 
einem Resourceangelpunkt zugeordnete 
Ziffer in Form eines Charakters. 


get_operator hingegen wandelt die An- 
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gelpunkte in die schon besprochenen 
Operatorsymbole um. 


Kommen wir nun zum Anweisungsteil 
von do_edit (Zeilen 351-499). Hier erfol- 
gen zuerst einige Initialisierungen. Allen 
voran die des Gültigkeitbits für die Wer- 
tübergabe (Zeile 352). Es ist auf false zu 
setzen, denn ediert haben wir ja noch 
nichts. Der status bekommtals Initialwert 
“fertig” (Zeile 353). Erst wenn eine Ein- 
gabe getätigt wurde, kann in eines der drei 
anderen Stadien übergegangen werden. 
Als letzter Schritt der Initialisierung wird 
die übergebene Zahl in die Textstrings 
eingetragen (Zeile 354). Der Rechner tritt 
daraufhin in eine REPEAT-Schleife 
(Zeilen 355-496) ein, die nurdurch Selek- 
tion eines Operatorsymbols wieder ver- 
lassen werden kann. In dieser Schleife 
erfolgt zunächst eine Eingabe mittels des 
Dialoges. (Dabei ist wieder das 


first_rechner-Bit zu beachten.) 


Anschließend erfolgt die Auswertung mit 
einem sehr umfangreichen CASE-State- 
ment. Im Verlauf dieses CASE-State- 
ments sieht man, wie der Rechner auf die 
unterschiedlichen Eingaben reagiert: 


l. Selektion von BMOD 

(Zeilen 371-390): 
Der tri_ modus wird um eine Position 
weitergeshiftet. In Abhängigkeit von die- 
sem Ergebnis werden die entsprechenden 
Texte neu gesetzt sowie der t_faktor neu 
berechnet. 


2. Selektion von BINV 
(Zeilen 391-397): 


Der inv_modus wird neu gesetzt und der 
entsprechende Text umgesetzt. 


3. Selektion einer Ziffer 
(Zeilen 398-438): 


Bei der Selektion einer Ziffer gibt es, 
entsprechend den vier Stadien des Edit- 
vorganges, vier Möglichkeiten der Reak- 
tion. 


War der vormalige Status fertig, werden 
nun sämtliche Ausgabestrings initiali- 
siert, und dem ersten Wert der Mantisse 
wird der Wert der ausgewählten Feldtaste 
zugewiesen. Der Status wechselt dabei 
nach vorkomma. 


War der Status vorkomma, ist zunächst zu 
überprüfen, ob noch Platz für weitere 
Eingaben vorhanden ist. Wenn ja, wird 
die eingegebene Ziffer von rechts mit der 
Mantisse verschmolzen. 


Beim nachkomma-Status ist auch als er- 


stes zu überprüfen, ob noch genügend 
Raum vorhanden ist. Wenn ja, wird die 
Ziffer ebenfalls an den Wert angehängt. 


Im Status exponent ist lediglich die Fal- 
lunterscheidung zu treffen, ob der Expo- 
nent bisher leer war. Ist dies der Fall, wird 
die erste Ziffer des Exponential-Strings 
neu belegt, andernfalls die zweite. 


4. Selektion von BKOMMA 

(Zeilen 439-455): 
BKOMMA hat nur im vorkomma- und im 
fertig-Modus eine Wirkung. Im vorkom- 
ma-Modus wird, falls Platz vorhanden ist, 












bewirkt, 

Nr. Fehlerart daß ein 

0 kein Fehler Punkt an 

1  Rechnerüberlauf die Man- 

2 Division durch O tisse an- 
3  Definitionsbereich 6 

verletzt gehängt 

4 Klammerfehler wird. Im 

fertig- 

Tabelle 2: Statusmöglichkeiten " 

für die Variable error Modus 

wird die 


Mantisse mit dem Wert Null gefüllt und 
sämtliche anderen Strings initialisiert. 
Bei beiden Modi ist es jedoch erforder- 
lich, mit dem Status nach nachkomma zu 
wechseln. 


5. Selektion von BVZW 
(Zeilen 456-470): 


Ein Vorzeichenwechsel muß, je nach 
Status, für den Exponenten (exponent), 
oder für die Mantisse (fertig, vorkomma, 
nachkomma) vorgenommen werden. 


6. Selektion von BEXP (Zeilen 471-482): 


Allen Modi ist bei der Betätigung von 
BEXP gleich, daß in den exponent-Modus 
übergewechselt wird und die entspre- 
chenden Strings initialisiert werden. 
Beim Status fertig wird zusätzlich davon 
ausgegangen, daß eine Mantisse von Eins 
erwünscht ist, da die Mantisse Null kei- 
nen Sinn macht - wieder eine der Konven- 
tionen zur Verbesserung der Bedienbar- 
keit. 


7. Selektion von BC (Zeilen 483-491): 


Bei der Selektion von BC werden sämtli- 
che Ausgabetexte zurückgesetzt auf den 
Wert Null. 


8. Selektion einer anderen Taste: 

In diesem Fall wird in den fertig-Modus 
gewechselt. 

Sind alle diese Fallunterscheidungen 
abgearbeitet, so ist im Falle fertig die 
Schleife zu verlassen. Einzige Ausnahme 
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bilden dabei nur die vier Feldtasten: BC, 
BMOD, BINV und BVZW, bei denen in 
der Schleife verblieben wird. Hier liegt 
lediglich eine Statusänderung vor, die erst 
nach Eingabe eines Kommandos be- 
rücksichtigt werden muß. 


Außerhalb der zentralen REPEAT- 
Schleife istnurnoch darauf zu achten, daß 
der Operator und der Operand mit den 
beiden dafür zuständigen Funktionen 
besorgt werden. Die Variable gueltig 
wurde bereits innerhalb der Schleife lau- 


(* resource set indicies for RE 

CONST 
rechner 
tmant 
texpexp 
tvz 
texpvz 
texptext 
tinv 
tm 
tdeg 
trad 
tgrad 
bsieben 
bacht 
bneun 
be 
bac 
bmin 
bmr 
bmminus 
bmplus 
bvier 
b£fuenf 
bsechs 
bmal 
bdurch 
binv 
bsin 
bcos 
btan 
beins 
bzwei 
bdrei 
bplus 
bminus 
bmod 
bquadrat 
bin 
blog 
bnull 
bkomma 
bexp 
bgleich 
bvzw 
bklauf 
bklzu 
bend 


0; 
2; 
3; 
4 

5; 
6; 
a 
8; 
9; 
10; 
11; 
14; 
15; 
16; 
17; 
18; 
19; 
20; 
21; 
22; 
23; 
24; 
25; 
= 26; 
27; 
28; 
29; 
30; 
31; 
32; 
33; 
34; 
35; 
36; 
37; 


(* 
(* 
(* 
(* 
(* 
(* 
(* 
(x 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 
(* 


(* 


£form/dialo 
TEXT in 
TEXT in 
TEXT in 
TEXT in 
TEXT in 
TEXT in 
TEXT in 
TEXT in 
TEXT in 
TEXT in 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON 
BUTTON in 
BUTTON in 
BUTTON i 
BUTTON 
BUTTON i 
BUTTON 
BUTTON 
BUTTON 
BUTTON i 
BUTTON i 
BUTTON i 
BUTTON i 


tr 
tr 


tr 
tr 


in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 


nnumnunnmanmm 


EEE Een nn 
{* Listing 14 Ein naturwisse: 
Taschenrechner 
(c) MAXON Comp; 
{* Datei RECHNER .PAS 


{* last update : 19.5.1988 
pa nn 


{* 





PROCEDURE do_rechner; 


CONST leerer_stack 
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tree 
tree 


tree 
tree 
tree 


tree 
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fend korrigiert. Glücklicherweise haben 
wir es damit endlich geschafft. Unsere 
Schnittstelle ist mit den entsprechenden 
Parametern versorgt worden und wir 
können uns auf die nächste Folge verta- 
gen. 


Vorausschau 


Abgedruckt finden Sie allerdings auch 
noch den Rest von do_rechner (Zeilen 
501-893) und die Resource-Umgebung 
des Rechners (Listing 15). Wie bereits 


CHNER *) 


g *) 

RECHNER 
RECHNER 
RECHNER 
RECHNER 
RECHNER 
RECHNER 
RECHNER 
RECHNER 
RECHNER *) 
RECHNER *) 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 
tree RECHNER 


pi 
deg 
rad 


en 
=) 
=) 
e) 
*} 
2) 
*) 


") 


ee an 


aus 


ee 
ee 


value 


error 


max_op_stack 
max_real_stack 


grad 


op_type 


real_: 


op_stack 


VAR stack_: 
operator 
stack_val 


eingangs angekündigt, werden diese Be- 
standteile jedoch erst beim nächsten Mal 
näher erläutert. Es geht dabei im wesent- 
lichen um die Abarbeitung der heute er- 
haltenen Wert-/Operatorsequenzen. Wei- 
terer Programmpunkt der nächsten und 
letzten (!) Folge des Lovely Helpers ist 
das (lange ersehnte) Zusammenbinden 
der bisher erhaltenen einzelnen Bestand- 
teile zu dem kompletten Accessory. Ich 
hoffe, Ihre Geduld reicht noch für einen 


Monat aus. Bis dahin! 
D.Brockhaus 


wo: 
50; 


3.1415926; 


(£_klammer_auf, 
£_gleich, 
f_ac, f_end, f_min, 
£ _mminus, f_mplus, 
£_mult, £_div, f_add, £_sub, 
£_sin, f_cos, f_tan, 
£_inv_sin, 
£_inv_cos, 

£_inv_tan, f_quadrat, 

£_In, £_log, 

£_exp, f_exp10); 


£f_klammer_zu, 


£_mr, 


£_wurzel, 


stack RECORD 
element 
ARRAY [l..max_real_stack] 
OF real; 
ptr : integer; 
END; 


RECORD 
element 
ARRAY [1..max_op_stack] 
OF op_type; 
ptr integer; 
END; 
op op_stack; 
op_type; 
real_stack; 
real; 


inv_modus 
tri_modus 
t_faktor 
speicher 
first_rechner 
gueltig 


integer; 
real; 


: boolean; 


mant_vz 
mant_wert 
exp_text 


exp_vz 
exp_wert 
inv_text 
mem text 
deg_text 
rad_text 
gra_text 


Pe nn 
nschaftlicher 
= 
*} 
= 
=} 


a 53 


uter GmbH 


VAR str 
i 


str255; 


PROCEDURE setze texte; 


: str255; 
: integer; 
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BEGIN 
set_dtext (rechner _dialog,tvz,mant_vz, 
system _font,te_left); 
str:=mant_wert; 
WHILE length (str)<8 DO 
str:=concat (str, ' '); 
set_dtext (rechner _dialog,tmant, str, 
system font,te_left); 
set_dtext (rechner dialog, texpvz,exp_vz, 
small_font,te_left); 
set_dtext (rechner_dialog,texpexp, exp_wert, 
small_font,te_left); 
set_dtext (rechner_dialog,texptext, exp_text, 
system_font,te_left); 
set_dtext (rechner_dialog,tinv,inv_text, 
small_font,te_left); 
set_dtext (rechner dialog,tm,men_text, 
small_font,te_left); 
set_dtext (rechner _dialog,tdeg,deg_text, 
small_font,te_left); 
set_dtext (rechner _dialog,trad,rad text, 
small_font,te_left); 
set_dtext (rechner _dialog,tgrad,gra_text, 
small_font,te_left); 
END; 


PROCEDURE setze_redraw; 


BEGIN 
obj_redraw (rechner _dialog,tvz); 
obj_redraw(rechner dialog, tmant); 
obj_redraw (rechner_: log,texpvz); 
obj_redraw (rechner _dialog,texpexp); 
obj_redraw (rechner _dialog,texptext); 
obj_redraw (rechner _dialog,tinv); 
obj_redraw (rechner_dialog,tm); 
obj_redraw (rechner dialog, tdeg); 
obj_redraw (rechner_dialog,trad); 
obj_redraw(rechner dialog,tgrad); 

END; 


PROCEDURE do_error; 


VAR button : integer; 
BEGIN 
CASE error OF 
: mant_wert 
: mant_wert 
: mant_wert 
: mant_wert 
: mant_wert:= 


exp_wert:=' 
exp_text 
inv_text 
setze_texte; 
IF first_rechner THEN 
BEGIN 
button:=do_dialog (rechner _dialog,0); 
obj_setstate (rechner_dialog,button, 
normal,true); 
first_rechner:=false; 
END 
ELSE 
BEGIN 
setze_redraw; 
button:=redo_dialog(rechner_dialog,0); 
obj_setstate (rechner _dialog,button, 
normal,true); 
END; 
END; 


PROCEDURE do edit (VAR zahl : real; 


VAR operator op_type); 
CONST fertig 

vorkomma 

nachkomma 

exponent 


VAR status , 


button integer; 


PROCEDURE setze zahl (zahl real); 
VAR help : long_integer; 
i :ı integer; 


PROCEDURE exp_darstellung; 


VAR log_ help , 
mant_real : real; 
i r 
exp_int integer; 
BEGIN 
log_help:=log (zahl); 


mant_wert:=' . 
mant_wert [1]:= 
charakter (trunc (mant_real)); 
mant_real:=mant_real-trunc (mant_real); 
FOR i:=3 TO 8 DO 
BEGIN 
mant_real:=mant_real*10; 
mant_wert[i]: 
charakter (trunc (mant_real)); 
mant_real:=mant_real 
-trunc (mant_real); 
END; 
exp_wert 
exp_text 
exp_vz:=' '; 
IF exp _int<>0 THEN 
IF abs (exp_int)=38 THEN 
BEGIN 


IF exp_int<0 THEN 
exp_vz:='-'; 
exp_int:=abs (exp_int); 
exp_wert[1]:= 
charakter(exp_int DIV 10); 
exp_wert[2]:= 
charakter (exp_int MOD 10); 
exp_text:='E'; 
END; 
END; 


BEGIN 
IF zahl>= 
mant_vz 
ELSE 
mant_vz: 
zahl:=abs (zahl); 
IF zahl<9999999 THEN 
IF zahl=long_trunc (zahl) THEN 
BEGIN 
help:=long_trunc (zahl); 
mant_wert:=' 0 
FOR i:= 7 DOWNTO 1 D 
IF help>0 THEN 
BEGIN 
mant_wert[i]:= 
charakter (help MOD 10); 
help:=help DIV 10; 
END; 
WHILE mant_wert[1]=' ' DO 
BEGIN 
delete (mant_wert,1,1); 
insert(' ',mant_wert,8); 

END; 
exp_vz:=' 
exp_wert 
exp_text 

END 
ELSE 
exp_darstellung 
ELSE 
exp_darstellung; 
deg_text:=' Mr 
rad text:=' ve 
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gra_text:= z 

CASE tri_modus OF 
deg : deg_text:='DEG'; 
rad : rad text 
grad : gra_text: 

END; 

IF inv_modus=an THEN 
inv_text:='INV' 

ELSE 


mem_text 
ELSE 
mem _text 
END; 


FUNCTION rsc_char : char; 


BEGIN 
CASE button OF 
bnull x 
beins 
bzwei 
bdrei : rsc_char: 
bvier : rsc_cha 
bfuenf : rsc_char: 
bsechs : rsc_cha 
bsieben : rsc_char: 
bacht : rsc_cha 
bneun » zsc_char: 
END; 
END; 


FUNCTION get_operator : op_type; 


BEGIN 
CASE button OF 
bgleich : get_operator _gleich; 
bmal : get_operator:=f mult; 
bdurch : get_operator _div; 
bplus : get_operator:=f_add; 
bminus : get_operator:=f_sub; 
bac : get_operator _ac; 
bklauf : get_operator:=f klammer auf; 
bklzu : get_operator:=f_klammer_zu; 
bend : get_operator:=f_end; 
bmin : get_operator:=f_min; 
bnr : get_operator:=f_ mr; 
bmminus : get_operator:=f_mminus; 
bmplus : get_operator _mplus; 
bsin : IF inv_modus=aus THEN 
get_operator:=f_sin 
ELSE 
get_operator:=f_inv_sin; 
IF inv_modus=aus THEN 
get_operator:=f_cos 
ELSE 
get_operator:=f_inv_cos; 
IF inv_modus=aus THEN 
get_operator:=f_tan 
ELSE 
get_operator:=f_inv_tan; 
bquadrat : IF inv_modus=aus THEN 
get_operator:=f_quadrat 
ELSE 
get_operator:=f wurzel; 
IF inv_modus=aus THEN 
get_operator:=f_In 
ELSE 
get_operator:=f_exp; 
IF inv_modus=aus THEN 
get_operator:=f_log 
ELSE 
get_operator:=f_exp10; 
END; 
inv_modus:=aus; 
END; 


FUNCTION get_zahl : real; 


VAR vor 


nach 
mant 
expo 
d_fak 
str 


real; 
str255; 
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BEGIN 
mant: 
vor: 
nach: 
expo 
d_fak: 
str:=mant_wert; 
WHILE (str[1]<>'.') AND (length (str)>0) DO 
BEGIN 
IF str[1] in ['0'..'9'] THEN 
vo: or*10+digit (str[1]); 
delete (str,1,1); 
END; 
WHILE length (str)>0 DO 
BEGIN 
IF str[1] in ['0'..'9'] THEN 
BEGIN 
nach:=10*nach+digit (str[1]); 
d_fak:=d_fak*10; 
END; 
delete (str,1,1); 
END 
mant:=vor+nach/d_fak; 
IF mant_vz='-' THEN 
mant:=-mant; 
expo:=0; 
str:=exp_wert; 
WHILE length (str)>0 DO 
BEGIN 
IF str[1] in ['0'..'9'] THEN 
expo:=10*expotdigit (str[1]); 
delete (str,1,1); 


' THEN 

IF (expo>0) 
AND (trunc (log (abs (mant)+1e-31)+1)+ 
abs (expo)>38) THEN 
error:=1 

ELSE 
get_zahl:=mant*expl0 (expo); 

END; 


BEGIN 
gueltig:=false; 
status:=fertig; 
setze_zahl (zahl); 
REPEAT 
IF first_rechner THEN 
BEGIN 
setze_texte; 
first_rechner:=false; 
button:=do_dialog(rechner_dialog, 0); 
obj_setstate (rechner _dialog, button, 
normal,true); 
END 
ELSE 
BEGIN 
setze_texte; 
setze _redraw; 
button:=redo_dialog(rechner_ dialog, 0); 
obj_setstate (rechner_dialog,button, 
normal,true); 
END; 
CASE button OF 
bmod : BEGIN 
tri_modu 
(tri_modus+1) MOD3; 
deg_text ; 
rad_text 
gra_text ü 
CASE tri_modus OF 
deg : BEGIN 
t_faktor 
deg_text: 
END; 
BEGIN 
t_faktor 
rad_text: 
END; 
BEGIN 
t_faktor 
gra_text 
END; 
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END; 










































































390: END; 

391% binv BEGIN 

392: inv_modus:= 
(inv_modus+1)MOD2; 

393: IF inv_modus=an THEN 

394: inv_text:='INV' 

3985|: ELSE 

396: inv_text Er 

397: END; 

398: bnull ’ 

399: beins D 

400: bzwei ‚ 

401: bdrei ‚ 

402: bvier D 

403: bfuenf r 

404: bsechs B 

405: bsieben , 

406: bacht B “2 

407: bneun BEGIN 

408: gueltig:=true; 

409: CASE status OF 

410: fertig BEGIN 





mant_wert 


mant_wert[1]: 
rsc_char: 








vorkomma 
IF length (mant_wert)<7 
THEN 
420: BEGIN 
421: mant_wert:= 
422: concat (mant_wert,''); 
mant_wert [length ( 
mant_wert)]:=rsc_char; 
END; 
426: nachkomma 
IF length (mant_wert)<8 
THEN 
427: BEGIN 
428: mant_wert:= 
429: concat (mant_wert, ' '); 
430: mant_wert [length ( 
431: mant_wert)]:=rsc_char; 
432: END; 
433: exponent 
IF exp_wert=' ' THEN 
434: exp_wert[1]:=rsc_char 
435: ELSE 
436: exp_wert [2]:=rsc_char; 
437: END; 


438: END; 
439: bkomma IF (status=vorkomma) AND 


440: (length (mant_wert)<7) THEN 
441: BEGIN 
442: gueltig 





443: status 
aaa: mant_wert:= 
concat (mant_wert, '.'); 

END 
ELSE 

IF status=fertig THEN 

BEGIN 

gueltig:=true; 


mant_wert 
END; 
bvzw : BEGIN 
gueltig:=true; 
CASE status OF 
fertig F 
vorkomma , 
nachkomma 
IF mant_v 
462: mant_vz: 
463: ELSE 
464: mant_vz:=' '; 
exponent : IF exp_vz=' ' 
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END; 
END; 
bexp : BEGIN 
gueltig:=true; 
exp_text:='E'; 
exp_v 

















































exp_wert:=' '; 
IF status=fertig THEN 
BEGIN 
mant_vz: 





mant_ wert: 

















be 
END; 

492: OTHERWISE: status:=fertig; 
493: END; 
494: UNTIL (status=fertig) AND (button<>bc) AND 
495: (button<>bmod) AND (button<>binv) AND 
496: (button<>bvzw); 
497: operator:=get_operator; 
498: zahl:=get_zahl; 
499: END; 
500: 
501: PROCEDURE create_op(VAR x op_stack); 
502: 
503: BEGIN 
504: x.ptr:=leerer_stack; 
505: END; 
506: 
507: FUNCTION is_empty_op(x op_stack) boolean; 
508: 
509: BEGIN 
510: is_empty_op:=x.ptr=leerer_stack; 
511: END; 
512: 
513: FUNCTION pop_op(VAR x op_stack) boolean; 
514: 
515: VAR help : boolean; 
516: 
3517: BEGIN 
518: help:=NOT is_empty_op(x); 
519: IF help THEN 
520: x.ptr-1; 
521: elp; 
522: 
523: 
524: FUNCTION push_op(VAR x op_stack; 
525: a : op_type) : boolean; 
526: 
527: VAR help : boolean; 
528: 
529: BEGIN 
530: WITH x DO 
s31> BEGIN 
532: help:=ptr<max_op_stack; 
5333 IF help THEN 
534: BEGIN 
535: ptr:=ptr+1; 
536: element [ptr]: 
337; END; 
538: END; 
539: push_op:=help; 


END; 










FUNCTION top_op(x : op_stack) : op_type; 





BEGIN 
545: IF NOT is _empty_op(x) THEN 
„element [x.ptr]; 






FUNCTION anz grund _op(x : op_stack) : integer; 


> 








s51: 
552: 
553; 
554: 
555: 
556: 
557: 


558: 
559: 
560: 
561: 
562: 
563: 
564: 
565: 
566: 
567: 
568: 
569: 
570: 
571: 
572; 
573: 
574: 
5758 
576: 
577: 
578: 
579: 
580: 
581: 
582: 
583: 
584: 
585: 
586: 
587: 
588: 
589: 
590: 
591: 
592: 
593; 
594: 
595: 
596: 
597: 
598: 
599; 
600: 
601: 
602: 
603: 
604: 
605: 
606: 
607: 
608: 
609: 
610: 
611: 
612: 
613: 
614: 
615: 
616: 
617: 
618: 
619: 
620: 
621: 
622: 
623: 
624: 
625: 
626: 
627: 
628: 
629: 
630: 
631: 
632: 
633: 
634: 
635: 


VAR count , 
i : integer; 


BEGIN 
count 
FOR i TO x.ptr DO 

IF x.element[i] in [f_add, f_sub, 
£_mult] THEN 





count :=count+1; 
anz_grund_op:=count; 
END; 
PROCEDURE create real(VAR x : real_sta 
BEGIN 
x.ptr:=leerer_stack 
END; 
FUNCTION is_empty_real(x: real_stack): 
BEGIN 
is_empty_real:=x.ptr=leerer_stack; 
END; 


FUNCTION push_real(VAR x : real_stack; 
a : real) : boo 
VAR help : boolean; 
BEGIN 
WITH x DO 
BEGIN 
help:=ptr<max_real_stack; 
IF help THEN 
BEGIN 
ptr:=ptr+l; 
element [ptr] := 
END; 
END; 
push_real:=help; 
END; 


FUNCTION pop_real(VAR x : real_stack): 


VAR help : boolean; 


BEGIN 
help:=NOT is _empty_real (x): 
IF help THEN 

x.ptr:=x.ptr-1; 
pop_real:=help; 

END; 





FUNCTION top_real(x : real_stack) : re 
BEGIN 
IF NOT is_empty_real(x) THEN 
top_real:=x.element[x.ptr]; 
END; 


FUNCTION depth_real(VAR x:real_stack): 
BEGIN 


depth_real:= 
END; 





.ptr; 


PROCEDURE reset_rechner; 


BEGIN 
inv_modus:=aus; 
tri_modus 
t_faktor:=pi/180; 
create_op(stack_op); 
create real(stack_val); 
operator:=f_gleich; 

END; 








FUNCTION prior (operator op_type) : ii 


BEGIN 
CASE operator OF 





f_klammer auf : prior: 
£_add D 

£_sub prior: 
£_div ’ 

£_mult prior:=2; 
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£_div, 


ck); 


boolean; 


lean; 


boolean; 


al; 


integer; 


nteger; 































































636: END; 
END; 


PROCEDURE do_operator; 






VAR operator 
642: zahll } 
zahl2 


op_type; 








real; 





FUNCTION anz_operanden (operator : op_type 


integer; 


BEGIN 
CASE operator OF 
£_mult ‚ 
f_div ä 
£_add . 
£_sub 
OTHERWISE 
END; 
END; 


anz_operanden:=2; 
anz_operanden:=1; 


FUNCTION vorz_plus(opl , 
op2 : real) : boolean; 


VAR vorz integer; 
BEGIN 
vorz:= 
IF ep1<0 THEN 
vorz:=-1; 
IF op2<0 THEN 
vorz:=-vorz; 
vorz_plus:=vorz=1; 
END; 











BEGIN 
operator:=top_op(stack_op); 
IF NOT pop op (stack_op) THEN 

error:=4; 
IF aaa SSeneSNEnTegeEeL ET THEN 
BEGIN 
zahl2:=top_real(stack_val); 
IF NOT pop_real(stack_val) THEN 











IF nor Ppop_ _real(stack val) THEN 


error:=4; 
END 
ELSE 
BEGIN 
zahl op_real (stack_val); 





IF NOT pop_real(stack_val) THEN 
error: 
END; 
IF error=0 THEN 
CASE operator OF 








£_log IF zahll>0 THEN 
zahll:=log(zahl1) 
ELSE 
error:=3; 
£_exp10 IF zahli<38 THEN 
zahll:=exp10 (zahl1) 
ELSE 
error:=1; 
£_In IF zahl1>0 THEN 


zahll:=1n(zahll) 
ELSE 


IF zahli<=: 87. 49823 THEN 


£_sin IF abs (zahl1*t_faktor)<=30 
THEN 
zahll:=sin(zahll*t_faktor) 
ELSE 
error:=1; 

IF abs (zahli1)<=1 THEN 


IF abs (zahll)=1 THEN 






£_inv_sin 


zahll:= 
zahli*pi/2/t_faktor 
715: ELSE 
716: zahll:=arctan (zahll/sqrt 


(-zahli*zahll+1)) 
— 
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It_faktor 


ELSE 
error:=3; 
IF abs (zahll*t_faktor)<=30 
THEN 
zahll:=cos (zahl1*t_faktor) 
ELSE 
error:=1; 
IF abs (zahll)<=1 THEN 
IF abs(zahli)=1 THEN 
zahli 
(1-zahll)*pi/2/t_faktor 
ELSE 
zahll:=(pi/2- 
arctan (zahli/sqrt (-zahl1* 
zahll+1)))/t_faktor 
ELSE 
error:=3; 
IF abs (zahl1*t_faktor)<=30 
THEN 
IF cos (zahli*t_faktor)<>0 
THEN 
zahll:=sin(zahl1* 
t_faktor) / 
cos (zahl1* 
t_faktor) 
ELSE 
error:=3 
ELSE 
error:=1; 
zahll:=arctan (zahl1)/ 
t_faktor; 
IF abs (zahl1)<=9.999999e18 
THEN 
zahll:=sqr (zahl1) 
ELSE 
error:=1; 
f_wurzel : IF zahl1>0 THEN 
zahll:=sqrt (zahl1) 
ELSE 
error:=3; 
f_min : speicher:=zahll; 
f_mr : zahll:=speicher; 
f_mminus : IF ((abs (speicher) <= 
4.999999e37) AND 
(abs (zahl1)<= 
4.999999e37)) OR 
vorz_plus (speicher, zahll) 
THEN 
speicher:=speicher-zahll 
ELSE 
error:=5; 
IF ((abs (speicher)<= 
4.999999e37) AND 
(abs (zahl1)<4.999999e37)) 
OR NOT 
vorz_plus (speicher, zahll) 
THEN 
speicher:=speicher+zahli 
ELSE 
error:=5; 
IF ((abs (zahl1)<= 
4.999999e37) AND 
(abs (zahl2)<= 
4.999999e37)) OR NOT 
vorz_plus (zahll, zahl2) 
THEN 
zahll:=zahll+zahl2 
ELSE 
error:=1; 
IF ((abs (zahl1)<= 
4.999999e37) AND 
(abs (zahl2)<= 
4.999999e37)) OR 
vorz_plus (zahll, zahl2) 
THEN 
zahll:=zahll-zahl2 
ELSE 
error:=1; 
£_mult :IF (zahli<1) OR (zahl2<1) OR 
(log (abs (zahl1)+1e-7)+ 
log (abs (zahl2)+1e-7)<38) 
THEN 
zahll:=zahll*zahl2 
ELSE 
error:=1; 


£_div : IF zahl2<>0 THEN 
IF (zahli<1) OR (zahl2>1) 
OR 
(log (abs (zahl1)+1e-7)- 
log (abs (zahl2) )<38) 
THEN 
zahll ahlı/zahl2 
ELSE 
error 
ELSE 
error:= 
END; 
IF NOT push_real(stack_val,zahll) THEN 
error:=4; 
END; 


BEGIN 
first_rechner:=true; 
speicher:=0; 
value:=0; 
reset_rechner; 
begin_update; 
REPEAT 
error:=0; 
do_edit (value, operator); 
IF is _empty_op(stack_op) THEN 
BEGIN 
create real(stack_val); 
IF push_real(stack_val,value) THEN 
END 
ELSE 
IF gueltig THEN 
BEGIN 
IF NOT push_real(stack_val,value) THEN 


END 
ELSE 
IF (operator<>f_klammer auf) AND 
(anz_grund_op (stack_op)= 
depth_real(stack_val)) THEN 
BEGIN 
IF NOT push_real(stack_val, 
top_real(stack_val)) THEN 
error:=4; 
END; 
IF error=0 THEN 
CASE operator 
f_min ‚ 
£_mr r 
£_mminus , 
£_mplus 
£_sin 
f_cos 
f_tan 
f_inv_sin 
£_inv_cos 
f_inv_tan 
f_quadrat 
£_wurzel 
£_In 
£_log 
£f_exp 
f_explO : IF NOT push_op(stack_op, 
operator) THEN 
error:=4 
ELSE 
do_operator; 


BEGIN 
WHILE (prior (top_op 
(stack_op) )>= 
prior (operator)) 
AND NOT is_empty_op 
(stack_op) 
AND (error=0) DO 
do_operator; 
IF NOT push_op (stack_op, 
operator) THEN 
error:=4; 
END; 
£_klammer_auf : 
IF NOT gueltig THEN 
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IF NOT push_op(stack_op, 
operator) THEN 
error:=4; 
f_klammer_zu: 
BEGIN 
WHILE (top_op(stack_op)<> 
£_klammer_auf) 
AND NOT is_empty_op 
(stack_op) 
AND (error=0) DO 
do_operator; 
IF top_op(stack_op)= 
£f_klammer auf THEN 
IF NOT pop_op(stack_op) 
THEN 
error:=4; 
END; 
BEGIN 
WHILE NOT is_empty_op 
(stack_op) DO 
do_operator; 
value:=top_real 
(stack_val); 
reset_rechner; 
IF NOT push_real 
(stack_val,value) THEN 


£_gleich 


END; 
reset_rechner; 


f_ac 
END; 
IF error<>0 THEN 
BEGIN 
do_error; 
reset_rechner; 
error 
END; 
IF is _empty_real(stack_val) THEN 
value:=0 
ELSE 
value:=top_real (stack_val); 
UNTIL operator=f_end; 
end_dialog (rechner dialog); 
end_update; 
END; 
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2: {* Listing 15 










































Resource-Handling für den 
Taschenrechner 

3: 1% (ec) MAXON Computer GmbH *} 
4: {* Datei RECHNER.PAS *} 
5: {* last update : 19.5.1988 *) 
6 

7 

8 


*} 


Pa a a a a a a a 


1$s10} 













10: PROGRAM rechner (input, output); 

11: 

12: CONST {$i gemconst.pas} 

13: {$i trixcons.pas} 

14: {$i rechner.i} 

15: 

16: TYPE {$i gemtype.pas} 

17: {$i trixtype.pas} 

18: 

19: VAR msg message_buffer; 

20: apl_name str255; 

21: apl_nr 

22: menu_nr ’ 

23: event ‚ 

24: dummy integer; 

25: 

26: rechner dialog : dialog_ptr; 

2 

28: 1{$i gemsubs.pas} 

29: {$i trixsubs.pas} 

30: ({$i hilf.pas} 

31: {$i rechnerl.pas} 

32% 

33: FUNCTION initialisieren boolean; 

34: 

35 VAR ok boolean; 

36: 

37 BEGIN 

38: ok:=load_resource('A: \RECHNER.RSC'); 

39: IF ok THEN 

40: BEGIN 

a1: apl_name:=' Taschenrechner'; 

42: menu_n enu_register (apl_nr,apl_name); 

43: find dialog (rechner, rechner_dialog); 

44: center _dialog(rechner_ dialog); 

45: END; 

46: initialisieren:=ok; 

47: END; 

48: 

49: BEGIN 

50: apl_nr:=init_gem; 

51: IF apl_nr>=0 THEN 

52: IF initialisieren THEN 

53: WHILE true DO 

54: BEGIN 

55: event:=get_event (e_message,0,0,0,0,true, 

56: 0,0,0,0,true,0,0,0,0, 
msg, dummy, dummy, dummy, 

57: dummy, dummy, dummy) ; 

58: IF msg[0]=ac_open THEN 

59: do_rechner; 





END; 





ST-Flo -Stationen: 


+ anschlußfertig = doppelseitig + garantiert kompatibel + 
mit formschönem, hochwertigem Metallgehäuse # mit der 
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ESN/A: dto mit Ausgang für Laufwerk B 268,-- DM 
DSN: 3,5"- Doppelstation, 75 * 106x230 398,-- DM 
GSN/3: 5,25" - Einzelstation, Ausgang für 3. Laufwerk, 
40/80 Spuren, 50 * 152 * 290 mm 368,-- DM 


Tel. 089 / 80 68 23 
Ep WAY 


249,-- DM 


Dipl.Ing. Gerhard Trumpp 
Mitterlängstrasse 7 
8039 Puchheim - Ort 
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Programme 


unter 


GEM 


Der letzte Artikel war mehr theore- 
tisch, heute schreiten wir zur Praxis. 
Ein Beispielprogramm zeigt uns, wie 
man sich ein Grundgerüst für ein 
GEM-Programm verschaffen kann. 
Das Rahmenprogramm ist in der Lage, 
einen eigenen Desktop (mit einem Icon) 
anzumelden, ein Menü darzustellen 
und natürlich auch, den Desktop und 
das Menü zu verwalten. Unser Desktop 
beinhaltet lediglich ein Icon, damit das 
Prinzip der Programmierung klar 
wird. Möchte man jedoch mehrere 
Icons haben, so müssen diese entweder 
vorher (beim Entwurf mit dem Re- 
source-Construction-Programm) de- 
klariert werden oder der Objekt-Baum 
(ein Array von Objekten, die miteinan- 
der verknüpft sind) muß erweitert wer- 
den. Die Erweiterung scheitert jedoch 
daran, daß ein Feld nicht so einfach 














gesamte Objekt-Baum (das Array, 
nicht jedoch Texte etc.) an eine andere 
Stelle kopiert werden, die genügend 
Platz bietet. 


Sollen eigene Dinge auf das Desktop 
gebracht werden, so darf dies niemals 
direkt geschehen. Werden Ausgaben di- 
rekt auf das Desktop gemacht und wird 
danach darüber ein Fenster gebracht, so 
ist die Ausgabe verschwunden, wenn das 
Fenster geschlossen wird. Für die eigenen 
Ausgaben findet die Application-Block- 
Struktur (USERBLK) Verwendung. 


Teil2 





Somit erhält 
das Pro- 
gramm  ı1m- 
mer dann 
eine  Mel- 
dung (über 
USERBLK). 
wenn das 
Desktop zu 
erneuern ist. 
Das Menü 
sollte immer 
die Menü- 
einträge 
sperren, die 
nicht  an- 
wählbar sein 
sollen. Dies geschieht mitmenu_- 
ieanble, indem die Adresse des 
Menüs, die Nummer des Eintrags 
und eine 0 (für desaktivieren) 
vucı eine I (lüı anüvicıcn) übeı- 
geben wird. Das Beispielpro- 
gramm macht das nicht. da gar 
keine Lade- oder Speicher-Routi- 
nen implementiert wurden. Das 
Tastenkürzel steht jeweils am rechten 
Rand des Menüeintrags. Das entspre- 
chende Tastaturereignis wird von dem 
Beispielprogramm ausgewertet. Soll das 
Programm noch unabhängiger gestaltet 
werden, so besteht die Möglichkeit, den 
Text des Menüeintrags nach Programm- 
start zu untersuchen. Dazu wird der 
Menü-Objektbaum nach den betreffen- 
den Einträgen abgesucht und das Tasten- 
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Bild 1: Das Beispielprogramm in Aktion 


Doppel-Klick 


auswerten... 





Bild 2: Eine der Alertboxen 


kürzel ausgewertet. Somit wird auch bei 
einer Veränderung des Resource-Files 
der Tastaturaufruf geändert. Das Bild I 
zeigt das Beispiel-Programm in Aktion. 
Benutzt wurde GEM der Version 2.x, 
weshalb auch das "Desk”-Menü am rech- 
ten Rand zu finden ist. Eine Alertbox ist 
auf Bild 2 zu schen und auf dem dritten 
Bild eines der beiden Drop-Down- 
Menüs. 
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neu anlegen AN 
öffnen... AD 


5 3333 3 JB DDR 20 a0 ea ae we 


sichern AS 


sichern als... *A 
an Ausgabe... 


10 308 0 30 DB 30 20 3093030 3035 DR 30 RD SS 3 


beend An 


Bild 3: Ein heruntergeklapptes Menü 


= APPL-Funktionen 





= NENU-Funktionen 
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Größe angepaßt und ausgegeben. Dann 
wird der Scrap-Pfad gesetzt, falls er noch 
nicht existiert. Schließlich erfolgt die 
Ausgabe des Menüs und die Maus wird 
wieder ein Pfeil. Eine Parameterdatei 
könnte in dieser Routine auch eingelesen 
und ausgewertet werden. Die Routine 
exit_prg ist vergleichsweise kurz. Sie 
meldet das Menü und das Desktop ab, gibt 
den Resource-Speicher wieder frei und 
meldet das Programm ab. 


& SCRP-Funktionen 





appl_init 
appl_exit 


& EUNT-Funktionen 


& 0BJC-Funktionen 


nenu_bar 
nenu_tnornal 


serp_read 
serp_urite 


= 6GRAF-Funktionen 





eunt_multi 


= RSRC-Funktionen 
rsrc_load 
rsrc_free 


objc_drau graf_dragbox 
objc_find graf_nouse 
objc_offset graf_nkstate 


rsrc_gaddr (R_TREE,R_STRING) 


= FORN-Funktionen 


orn_do 
form_dial (FMD_START, FHD_GROW, FHD_SHRINK, FMD_FINISH) 


Wenden wir uns nun dem Programm zu. 
Es wurde mit Turbo € geschrieben, sollte 
aber auch mit anderen C-Compilern über- 
setzbar sein. Im Listing 1 ist die für unser 
Programm notwendige Projekt-Datei auf- 
geführt. Die Projekt-Dateien sind Turbo 
C-spezifisch, für andere Entwicklungssy- 
steme sind entsprechende Vorbereitun- 
gen zu treffen. 


Im Listing 2 befinden sich zahlreiche Er- 
klärungen zu den einzelnen Schritten, 
weshalb diese hier nicht ausführlich er- 
klärt werden sollen. Das Hauptprogramm 
main ist für den groben Rahmen zustän- 
dig. Dazu gehört die Initialisierung 
init_prg und das Abmelden exit_prg. In 
der while-Schleife wird solange gewartet, 
bis die Variable finish den Wert | (analog 
zur TRUE) erhält. Für den Fall, daß ein 
Menüeintrag angeklickt wurde, wird die 
Routine hdle menu aufgerufen, bei ei- 
nem Mausklick hdle_mouse und bei ei- 
nem Tastaturereignis hdle_key. Die Ini- 
tialisierungsroutine init_prg meldet das 
Programm zuerst beim AES an, stellt 
dann die Maus als Sanduhr (GEM 2.x) 
bzw. als Biene (GEM 1.x) dar, weil die 
folgenden Aktionen doch etwas mehr Zeit 
erfordern. Dann wird das Resource-File 
geladen und ausgewertet. Direkt nach der 
Auswertung wird das Desktop in der 


138 Si 11/1989 


forn_alert 
form_center 
Bild4: | <> WIND-Funktionen 
Im Beispiel- -  wind_get (HF_WORKRYUH,WF_FIRSTAYUH, UF_NERTRYUH) 
programm wind_set (WF_NEWDESK) 
benutzte AES- wind_update (END_UPDATE, BEG_UPDATE, END_NETRL, BEG_MCTRL) 
Funktionen 





Hdle_menu ist wohl die einfachste unter 
den Handle-Routinen. Entsprechend dem 
Menüeintrag wird eine Aktion durchge- 
führt und schließlich der Menütitel wie- 
der normal dargestellt. Die normale Dar- 
stellung ist übrigens spätestens dann zu 
wählen, wenn das Menü wieder verfügbar 
ist. Der Menütitel sollte solange invertiert 
bleiben, wie die “blockierende” Aktion 
andauert. Wird also beispielsweise eine 
Datei geladen, so hebt man die Invertie- 
rung auf, sobald diese geladen ist. Von 
hdle_menu aus wird auch die Informa- 
tionsdialogbox über do_info aufgerufen. 
In do_info wird ein vollständiger Dialog 
durchgeführt. 


RufteinDi 
auf, soempfiehltes sich, den Vor-undden 
Nachbereitungsteil in getrennten Funk- 
tionen zu deklarieren, denn diese unter- 
scheiden sich in der Regel nicht. Der 
Durchführungsteil kann sich erheblich 
unterscheiden, beispielsweise können 
wie bei einem Fileselector Dateinamen 
gescrollt werden. Die dritte Handle-Rou- 
tine - hdle_key - ist schon etwas kompli- 
zierter. Dort werden nicht nur die oberen 
8 Bit des Tastencodes ausgewertet, son- 
dern es wird auch entsprechend der ge- 
drückten Taste der Menütitel invertiert 
und dann wieder normal dargestellt. 


n mehrere Dialogboxen 





Die Handle-Routine hdle_mouse ermit- 
telt zuerst das Objekt, welches sich an der 
Mausposition befindet. Dann wird zwi- 
schen einem Doppel- und einem Einfach- 
klick unterschieden. Bei einem Doppel- 
klick wird das entsprechende Icon inver- 
tiert, eine Alertbox ausgegeben und da- 
nach die Invertierung wieder aufgehoben. 
Wurde nur einmal geklickt, ist noch zu 
unterscheiden, ob die Maustaste mittler- 
weile losgelassen wurde odernicht. Istdie 
linke Maustaste noch gedrückt, wird das 
Icon bewegt. Ist sie nicht gedrückt, wird 
das Icon invertiert, wenn sich der Maus- 
zeiger darüber befindet, bzw. die Invertie- 
rung aufgehoben, wenn außerhalb des 
Icons geklickt wurde. 


In der Maus-Handling-Routine werden 
zwei neue Routinen aufgerufen. Dies ist 
zum einen eine Ausgabe-Routine und 
zum anderen eine Routine, die die Icon- 
Bewegung übernimmt. Die Ausgabe- 
Routine draw_obje gibt ein Objekt unter 
Berücksichtigung der Rechteckliste aus. 
Dies ist notwendig, da nicht immer ein 
komplettes Objekt neu gezeichnet wer- 
den muß. Denken Sie nur daran, wenn ein 
Fenster ein Icon halb überdeckt! 


Move _objec versteckt zuerst das Objekt 
und gibt es über draw2_objc aus. Die 
zweite Ausgabe-Routine ist erforderlich, 
da mit HIDETREE versteckte Objekte 
nicht direkt angesprochen werden kön- 
nen. Dann wird der Arbeitsbereich - der 
Bereich, in dem das Objekt bewegt wer- 
den darf - ermittelt, die Maus als flache 
Hand dargestellt und das Objekt via 
graf_dragbox verschoben. Anschließend 
stehen die neuen Koordinaten des Icons 
fest. Wenn man nur bestimmte Positionen 
zuläßt, so ist an dieser Stelle eine Anpas- 
sung - beispielsweise auf Byte-Grenze - 
vorzunehmen. Letztendlich wird die 
Maus wieder als Pfeil dargestellt und das 
Icon ausgegeben. Damit seien die Erklä- 
rungen beendet. Im Listing 2 finden sich 
noch weitere Erklärungen und Anregun- 
gen. Ich hoffe, daß Ihnen die kleine Ein- 
führung in die Benutzung des GEM gefal- 
len hat und sie als nächstes Programm ein 
wunderschönes GEM-Programm schrei- 
ben werden. 


Dietmar Rabich 


Literatur: 


[1] Atari ST Profibuch, H.-D. Jankowskil J. F. 
Reschke/ D. Rabich, Sybex 1987/88189 

[2] GEM Programmier-Handbuch, P. Balma! W. 
Fitler, Sybex 1987/88 

[3] Professionel GEM, T. Oren, ANTIC 1985/86 
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GEMPROG. 
name of executable pgm is 
topmost window 
= ; list of modules follows... 
testart.o startup code 


gemprog (gemprog.h, interna.h, scankey.h) ; 
Hauptmodul 
interna (interna.h) ; ST-interne Funktionen 


testdlib.lib 
tetoslib.lib 
tegemlib.lib 


Standard-Library 
TOS-Library 
GEM-Library 


RR RAR / 
/* GEM-Rahmen-Programm Vers. 1.00c “/ 
* ”/ 
/* Datum: 13. Mai 1989 */ 
/* Letztes Edier-Datum: 1. September 1989 */ 
/* Autor: D. Rabich Entwickelt mit Turbo C */ 
NE “iR 
/* Quelldatei: GEMPROG.C */ 


RER RA / 


/* Include-Dateien */ 

# include "gemprog.h" /* Resource-Datei 
# include "interna.h" /* ST-Interna 

# include "scankey.h" /* Scancodes 

# include <aes.h> /* AES-Routinen 


/* Definition zweier Funktionen */ 
# define min(a,b) (ta) < (b) ? (a) : (b)) 

/* Minimum */ 
# define max(a,b) ((a) > (b) ? (a) : (b)) 

/* Maximum */ 


/* Handle des Desktops definieren */ 
# define DESK 0 


/* Definitionen */ 
# define MAXSTRING 80 


# define INIT_OK 0 
# define NO_INIT ı 
# define NO_RESOURCE 2 


/* Strings */ 

char no_resource[] = "[3][ | GEMPROG.RSC| 
nicht gefunden. | ][ OK ]"; 

char no_init[] = "[3][ | Initialisierung | 

erfolglos.| ][ OK ]"; 

char rsc_name[] = "GEMPROG.RSC"; 

char std_scrap[] = "x:\\CLIPBRD"; 

/* hier auch Parameter-Datei angeben! 

/* Format <Programm-Name>.INF 

/* Beispiel: GEMPROG.INF 


/* Struktur (en) */ 
typedef struct ( int x,y; /* kennzeichnet 
einen Punkt */ 
} POINT; 


/* Prototypen */ 

static int init_prg(void); 

static void exit_prg (int); 

static void draw_objce (int, OBJECT*, int); 
static void clip(GRECT*, GRECT*); 

static void draw2_obje(int, OBJECT*, int); 
static void move_obje(int, OBJECT*, int); 
static void do_info (void); 

static void hdle menu(int, int); 

static void hdle mouse (int, POINT*); 
static void hdle_key(int, int); 
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107: 


108: 
109: 


110: 
111: 
112: 
3137 
114: 
ı15: 
116: 
117: 
118: 
118: 
120: 
421% 
122: 
123: 
124: 
125= 
126: 
127: 
128: 
129: 
130: 
131: 
132: 
133: 
134: 
135: 
136: 
137; 
138: 
139: 
140: 
141: 





/* Variablen */ 





int apl_id, /* Applikations-ID */ 
finish = 0; /* Flag für Ende */ 

OBJECT *menu, /* Menü */ 
*desktop, /* Desktop */ 
*infodial, /* Dialogbox */ 
*aktion, /* Alert-Boxen */ 
*laden, /* Alert-Boxen */ 
*speichern, /* Alert-Boxen */ 
*ausgabe; /* Alert-Boxen */ 

GRECT desksize; /* Desk-Grösse */ 


/ 


/* Anmeldung des Programms */ 
/* Aufgabe: Anmeldung beim AES, laden und 
auswerten der Resource-Datei, ct 
/* Scrap-Pfad setzen, Menü ausgeben, 
Desktop setzen, “7 
Vhe Mauszeiger auf Pfeil setzen “/ 


NR / 
static int init_prg (void) 
{ char scrp_path[MAXSTRING]; 

/* anmelden */ 

apl_id = appl_init (); 


if (apl_id < 0) 
return (NO_INIT); 


/* korrekte ID? */ 


/* Maus als Biene/Sanduhr */ 
graf_mouse (HOURGLASS, OL); 


/* Resource-Datei laden */ 
if (!rsre_load(rsc_name)) /* nicht 
gefunden? */ 
{ form_alert (1,no_resource); 
return (NO_RESOURCE) ; 

} 

/* Accessories, die unter GEM 2.x laufen 
sollen, */ 

/* dürfen keine Resource-Dateien laden. */ 


/* Anfangsadressen ermitteln */ 
rsrc_gaddr(R TREE, MENUE, ä&menu); /* Menü */ 
rsrc_gaddr(R_TREE, DESKTOP, &desktop); 

/* Desktop */ 
INFODIAL, sinfodial); 

/* Dialog */ 


rsrc_gaddr(R_TREE, 


rsrc_gaddr(R_STRING,DOPPEL, &aktion); 
/* Alert-Boxen */ 
rsrc_gaddr(R STRING, LADEN, sladen); 


rsrc_gaddr (R_STRING, SPEICHER, &speichern) ; 
rsrc_gaddr(R_ STRING, AUSGABE, Sausgabe); 


/* Grösse des Desktops ermitteln */ 
wind_get (DESK, WF_WORKXYWH, 
&desksize.g x,&desksize.g_y, 
&desksize.g_w,&desksize.g_h); 


/* Object-Struktur anpassen */ 

desktop [ROOT] .ob_x = desksize.g_ x; 
desktop[ROOT] .ob_y desksize,g 
desktop [ROOT] .ob_width desksize.g_ w: 
desktop[ROOT] .ob_height = desksize.g_h; 


/* Default-Objektbaum setzen (Desktop) */ 

objc_draw (desktop, ROOT, MAX_DEPTH, 
desksize.g_x,desksize.g_y, 
desksize.g w,desksize.g_h); 

wind_set (DESK,WF_NEWDESK, (long) desktop, 0); 


/* Scrap-Pfad setzen */ 
scrp_read(scrp_path); 
if (serp_path[0] == 0) 
{ std_serap[0] = 'A' + (char) boot_dev(); 
scerp_write (std_scrap); 





} 


/* hier kann die INF-Datei geladen werden! */ 
/* Der Pfad wird mit shel_find ermittelt. */ 


/* Menü ausgeben */ En 











168: 
169: 
170: 
171: 
In2: 
173: 
174: 
175: 
176: 
Ur 
178: 
179: 
180: 


181: 
182: 
183: 


184: 
185: 
186: 
187: 


188: 
189: 
190: 
191: 


192: 
193: 
194: 


195: 
196: 


97: 
198: 
199: 


200: 
201: 


GRUNDLAGEN 


menu_bar (menu, 1); 


/* Maus als Pfeil */ 
graf_mouse (ARROW, OL); 


return (INIT_OR); 


RR / 
/* Abmeldung des Programms */ 
/* Aufgabe: Menü abmelden, Desktop 

zurücksetzen, “: 
8 Resource-Speicher freigeben, 


Abmeldung beim AES */ 
VRR RAR RER / 


static void exit_prg (int re) 
{ 
if (rc == INIT_OK) 
{ /* Menü abmelden */ 


menu_bar (menu, 0); 


/* Leerer Default-Objektbaum */ 
wind_set (DESK, WF_NEWDESK, OL, 0); 





/* Resource-Speicher freigeben */ 
rsre_free(); 





if ((rc INIT_OK) || (rc = 
/* abmelden */ 
appl_exit(); 





NO_RESOURCE)) 


MV / 


/* Objekt ausgeben */ 
/* Aufgabe: Objekt unter Berücksichtigung der 
Rechteckliste ausgeben */ 


N / 


static void draw_objc (int handle, OBJECT *tree, 
int child) 


{ int wi_gwl,wi_gw2,wi_gw3,wi_gwä; 


wind update (BEG_UPDATE); /* Fenster wird 
erneuert */ 


/* Rechteckliste abarbeiten */ 
wind_get (handle, WF_FIRSTXYWH, &wi_gwl, &wi_gw2, 
&wi_gw3,&wi_gw4); 
/* erster Rechteck der Liste */ 
while (wi_gw3 && wi_gw4) 
{ obje_draw(tree,child,MAX_DEPTH,wi_gwl, 
wi_gw2,wi_gw3,wi_gw4); 
/* Objekt ausgeben */ 
wind_get (handle, WF_NEXTXYWH, &wi_gwl, 
&wi_gw2,&wi_gw3,&wi_gw4); 
/* nächstes Rechteck */ 
} 


wind_update (END_UPDATE); /* Erneuerung 
beendet */ 


/ 
/* Clipping ”/ 
/* Aufgabe: Clippt das Rechteck a unter 


Berücksichtigung von b */ 
KRRRRRR RER / 


static void clip (GRECT *a, GRECT *b) 


{ a->g_x = max(a->g_x,b->g_x); /* linke obere 
Ecke */ 


a->g_y = max(a->g_y,b->g_y); 

a->g_w = min(a->g_x + a->g_w, b->g_x + 
b->g_w); /* rechte untere Ecke */ 

a->g_h = min(a->g_y + a->g_h, b->g_y + b->g_h); 


a->g_w -= a->g_ x; /* Breite */ 





a->g_h -= a->g_y; /* Höhe */ 
} 


ee / 
/* Object ausgeben */ 
/* Aufgabe: Object auch unter Berücksichtigun. 

g: 3 gung 


von HIDETREE ausgeben #7 
VRR RA HER / 


static void draw2_objce (int handle, OBJECT *tree, 
int child) 


{ GRECT a, b; 


wind_update (BEG_UPDATE); /* Fenster erneuern */ 


/* Rechteckliste abarbeiten */ 
wind_get (handle, WF_FIRSTXYWH, 
&a.g_x,&a.g_y‚&a.g_w,&a.g_h); 
/* erstes Rechteck der Liste */ 
while (a.g_w && a.g_h) 
{ objc_offset (tree,child,&b.g_x,&b.g_y); 
/* Position des Objekts */ 
b.g_w = tree[child].ob_width; 
b.g_h = tree[child].ob_height; 
elip(&a,&b); /* Clipping */ 
objc_draw (tree, ROOT, MAX_DEPTH, 
a.9_X,a.9g_y‚,a.g_w,a.g_h); 
/* Objekt ausgeben */ 
wind_get (handle, WF_NEXTXYWH, 
Sa.g_x,&a.g y‚sSa.g w,Sa.g_h); 
/* nächstes Rechteck */ 
} 


wind_ update (END_UPDATE); /* Erneuerung 
beendet */ 


/* In dieser Funktion könnte auch 
form dial(FMD_FINISH,...) Verwendung */ 
/* finden. */ 


NR RR / 
/* Objekt bewegen */ 
/* Aufgabe: Objekt verstecken, bewegen und 


wieder darstellen Al 
N / 


static void move_obje (int handle, OBJECT *tree, 
int child) 


{ int x,y,ox,oy,nx,ny; 


/* Objekt verstecken */ 
tree[child].ob_flags |= HIDETREE; 
draw2_objc(handle,tree, child); 


/* Objekt child innerhalb des Objekts ROOT 
bewegen */ 
objc_offset (tree, ROOT, &x,&y); /* Offset 
berechnen */ 
objc_offset (tree, child, &ox, &oy) ; 
wind update (BEG_UPDATE); 

/* Fenstererneuerung */ 
wind update (BEG_MCTRL): /* Mauskontrolle */ 
graf_mouse (FLAT_HAND,0); /* Maus auf 

"flache Hand" */ 
graf_dragbox (tree[child] .ob_width, 
tree[child].ob_height, /* bewegen */ 

°ox, oy, 

y Yv 

tree[ROOT].ob_width, 

tree[ROOT].ob_height, 

Enx, eny); 
graf_mouse (ARROW,0); /* Maus wieder Pfeil */ 
wind_ update (END_MCTRL); /* keine 

Mauskontrolle */ 
wind_ update (END_UPDATE); /* Erneuerung 
beendet */ 
tree[child].ob_x += nx - ox; /* Verschub 
addieren */ 
tree[child].ob_y += ny - oy; 


/* Objekt darstellen */ 
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tree[child].ob_flags &= -HIDETREE; 
draw_obje(handle,tree, child); 


} 


284: 


287: 
288: 
289: 
290: 


RE / 


/* Information ausgeben */ 


/* Aufgabe: Dialogbox ausgeben */ 
VERA A RA ARRRRERERRRR/ 







static void do_info (void) 












{ GRECT a, b; 
296: int ret; 
297: 
298: 
299: 
300: 





/* Position des Menü-Titels berechnen */ 
objc_offset (menu, MNINFO, &b.g_x,&b.g_y); 
b.g_w = menu[MNINFO].ob_width; 

b.g_h = menu[MNINFO]..ob_height; 

























/* Vorbereitung */ 
wind_update (BEG_UPDATE); 
/* Fenstererneuerung */ 


304: 


305: 
306: 


form_center (infodial, 
8a.g_x,&a.g_y,&a.g_w,&a.g_h); 
/* Dialogbox zentrieren */ 
form _dial (FMD_START, 
a.g_x,a.g_y,a.g_w,a.g_h, 
a.g_x,a.g_y,a.g_w,a.g_h); 
/* Hintergrund reservieren */ 
form_dial (FMD_GRON, 
b.g_x,b.g_y,b-g_w,b.g_h, 
a.g_x,a.g_y,a.g_w,a.g_h); 
/* vergrösserndes Rechteck */ 
objc_draw(infodial,ROOT,MAX_DEPTE, 
a.g_x,a.g_y,a.g_w,a.g_h); 
/* Dialogbox ausgeben */ 


307: 
308: 
309: 


310: 
317: 
312: 


313; 
314: 








/* Durchführung */ 

ret=form_do (infodial,0); /* Dialog 
durchführen */ 

infodial[ret].ob_state &= -SELECTED; 

/* SELECTED zurücksetzen */ 


31%: 


318: 















/* Nachbereitung */ 
£form_dial(FMD_SHRINK, 
b.g_x,b.g_y,b.g_w,b.g_h, 
a.g_x,a.g_y,a.g w,a.g_h); 
/* verkleinerndes Rechteck */ 
£form_dial (FMD_FINISH, 
a.g_x,a.g_y,a.g_w,a.g_h, 
a.g_x,a.g_y,a.g_w,a.g_h); 
/* Hintergrund freigeben */ 
wind_ update (END_UPDATE); /* Erneuerung 
beendet */ 


321% 
322: 
323: 


324: 
325: 
326: 


327: 
/* Vorbereitung und Nachbereitung können auch 


in eigene Routinen */ 
/* ausgelagert werden. */ 













RAR RR / 
/* Menü-Handler */ 
/* Aufgabe: Auswertung des ausgewählten Menü- 
Eintrags */ 
NR / 


335: 
336: 


3375 


static void hdle menu (int title, int item) 




















{ 
342: /* Welches Drop-Down-Menü? */ 
343: switch (title) 

344: { 
345: 

346: 

347: 

348: 





/* Info-Menü 
case MNINFO 
/* Hier gibt es nur einen Eintrag */ 
if (item ITINFO) 
do_info(); 


.*/ 





break; 


/* Datei-Menü? */ 
354: case MNDATEI 
355: /* Welcher Eintrag? */ 


switch (item) 
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412: 
413: 


414: 


415: 









































N 


menu_tnormal (menu,title,1); 


TR / 





/* Maus-Handler 


/* Aufgabe: Auswertung des Mausklicks (linke 


Taste) 


re / 


static void häle mouse 


{ int obj, 


‘/* Welches Object? */ 
= obje_find (desktop, ROOT,MAX DEPTH, 
where->x, where->y); 


obj 


dummy, 
but_state; 


/* Doppelklick? */ 


if (clicks = 


{ 





2) 


/* Welches Objekt? */ 


switch (obj) 
{ case BSPICON 


} 


q 


/* Datei neu anlegen? 
(nicht laden!) */ 
case ITNEU = 
/* Eigene Routine... 
form_alert (1, 
(char*) 


El 


laden); 
break; 


/* Datei öffnen? */ 
case ITOEFFNE 
/* Eigene Routine... */ 
form alert (1, 
(char*) laden); 
break; 


/* Datei sichern? */ 
case ITSICHER 
/* Eigene Routine... */ 
form_alert (1, 
(chart) speichern); 
break; 


/* Datei unter neuem 
Namen sichern? */ 
case ITSICALS 
/* Eigene Routine... */ 
form_alert (1, 
(<har*) speichern); 
break; 


/* Ausgabe-Programm 
starten? */ 
case ITAUSGAB 
/* Eigene Routine... */ 
form_alert (1, 
(char*) ausgabe); 
break; 


/* Programm-Ende? */ 
case ITENDE 
finish = 1; 
break; 


/* Invertierung 
aufheben */ 


a): 
#7: 


int clicks, POINT *where) 


/* invers darstellen */ 

if (!(SELECTED & 

desktop[obj].ob_state)) 

{ 

desktop[obj] .ob_state |= 

SELECTED; 
draw_objc (DESK, 

desktop, 
obj); 





> 


GRUNDLAGEN 


/* Hier können eigene 

Routinen */ 

/* aufgerufen werden... 

x 

form_alert (1, (char*) 
aktion); 


/* normal darstellen */ 

desktopl[obj] .ob_state 
&= -SELECTED; 

draw_objc (DESK, desktop, 
obj); 

/* Es könnte auch 

objc_change 

benutzt werden! */ 


break; 
/* Platz für weitere Auwertungen und Icons... */ 


} 
} 


/* Einfachklick? */ 
else if (clicks 1) 
{ 
/* Status der Maustasten abfragen */ 
graf_mkstate (&dummy, sdummy, &but_state, 
&dummy); 


/* linke Maustaste festgehalten? */ 
if (but_state & 0x01) 
{ 
/* Welches Object? */ 
switch (obj) 
{ 
/* Objekt bewegen */ 
case BSPICON move_objc (DESK, 
desktop, obj); 
break; 


/* Für weitere Icons. uf 


} 


/* einfach geklickt? */ 
else 
{ 
/* Welches Object? */ 
switch (obj) 
{ 
/* Objekt invertieren */ 
case BSPICON : if (!(SELECTED & 
desktop[obj] .ob_state)) 
{ 
desktop[obj].ob_state |= SELECTED; 
draw_objc (DESK, 
desktop, obj): 
} 
break; 


/* Platz für weitere Aktionen... */ 


/* Invertierungen aufheben */ 
default - if (SELECTED & 
desktop[BSPICON] .ob_state) 
{ 
desktop[BSPICON] .ob_state &= -SELECTED; 
draw_objc (DESK, 
desktop, BSPICON) ; 
} 
break; 


VE EEE EEE 77 


/* Key-Handler */ 
/* Aufgabe: Auswertung des Tastendrucks */ 
Va ey 
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static void häle_key (int key, int special_key) 


{ 
/* Control gedrückt? */ 
if (K_CTRL & special_key) 


{ 
/* Welche Taste? */ 
switch(key >> 8) /* Scancode in den 
oberen 8 Bit */ 
{ 
/* N gedrückt? */ 
case K_N : menu_tnormal (menu, MNDATEI, 
0); /* Titel invertieren */ 


/* Eigene Routine... */ 
form alert(1, (char*) laden); 


menu_tnormal (menu, MNDATEI, 
1); /* Titel normal 
darstellen */ 


break; 


/* 0 gedrückt? */ 
case K_O : menu_tnormal (menu, MNDATEI, 
0); /* Titel invertieren */ 


/* Eigene Routine... */ 
form_alert (1, (char*) laden); 


menu_tnormal (menu, MNDATEI, 
1); /* Titel normal 
darstellen */ 


break; 


/* S gedrückt? */ 
case K_S : menu_tnormal (menu, MNDATEI, 
0); /* Titel invertieren */ 


/* Eigene Routine... */ 
form_alert (1, 
(char*)speichern); 


menu_tnormal (menu, MNDATEI, 
1); /* Titel normal 
darstellen */ 


break; 


/* A gedrückt? */ 
case K_A : menu_tnormal (menu, MNDATEI, 
0); /* Titel invertieren */ 


/* Eigene Routine... */ 
form_alert (1, 
(char*)speichern) ; 


menu_tnormal (menu, MNDATEI, 
1); /* Titel normal 
darstellen */ 
break; 
/* 0 gedrückt? */ 


case KO : finish = 1; 
break; 


RAR / 


/* Hauptprogramm */ 
/* Aufgabe: Initialisierung, Auswertung der 


Events, Abmeldung */ 
HRHRa u / 


int main (void) 


{ int events, /* £ür Multi-Event */ 
mouse button, /* für Multi-Event */ 
sp_key,key,clicks, /* f.Multi-Event */ 


—e 





msg_buffer[8]; 
mouse_pos; 
ret_code; 


POINT 
int 


if ((ret_code = init_prg()) == INIT_OK) 


{ while (!finish) 


{ events=evnt_multi( 
/* Message-, 


Tastatatur-Ereignis 
MU_MESAG| MU_BUTTON |} MU_KEYBD r 


/* Doppelklick und linke Maustaste */ 
0x02,0x01,0x01, 


/* Keine Überwachung von Rechtecken */ 
0,0,0,0,0,0,0,0,0,0 


/* Message-Buffer 
msg_buffer, 


/* Kein Timer */ 
0,0, 


/* Maus-Position und -Taste 
Smouse_pos.x, 
&mouse_pos.y, 
Smouse_ button, 


/* Sondertaste und Taste */ 
&sp_key,&key, 


/* Anzahl der Mausklicks */ 625: 
&clicks); 


/* Message-Event? */ 


if (events 5 MU_MESAG) 





/* für Multi-Event */ 
/* £ür Multi-Event */ 
/* aus Initialisierung */ 


Maustasten- und 
&l: 


GRUNDLAGEN 








else 





628: } 


form_alert (1,no_init); 


{ switch 
{ 
/* Menü angeklickt? */ 
case MN SELECTED 


(msg_buffer[0]) 


hdle menu (msg_buffer[3],msg_buffer[4]); 

break; 
599 /* Platz für weitere Message-Auswertungen... *“/ 
600: /* 2.B. für Fenster: WM _REDRAW, WM _TOPPED, ... */ 


} 
else 
/* Maus-Button-Event? */ 
if (events & MU_BUTTON) 


hdle_mouse (clicks, &mouse_pos); 


/* Tastatur-Event? */ 
if (events & MU_KEYBD) 


hdle_key(key,sp_key); 


/* Fehlermeldung */ 


exit_prg(ret_code); 
627: return (0); 


N / 











STEIGERN SIE IHRE ANSPRÜCHE 


Arabesque 


Anspruchsvolle Aufgaben erfordern 
entsprechende Werkzeuge, die Ihre 
Kreativität fördern, statt Sie einzu- 
engen. Arabesque bietet Ihnen die 
Möglichkeit, sowohl.mit-Raster- als 
auch mit Vektorgrafiken zu arbeiten. 
Oder beides zu vereinen. 


Arabesque ist die professionelle Lö- 
sung für den Atari ST. Einfach zu 
bedienen - und dennoch mächtig. Die 
richtige Software für anspruchsvolle 
Gestaltungsaufgaben - zu einem fai- 


SHIFTSONNENSCHEIN & HANSEN : UNTERER LAUTRUPWEG 8 - D-2390 FLENSBURG - TELEFON (0461) 2 28 28 
SCHWEIZ: EDV-DIENSTLEISTUNGEN - STIFTUNG GRÜNAU - ERLENSTRASSE 73 - CH-8805 RICHTERSWIL - TELEFON (01) 784 89 47 


ren Preis. Überzeugen Sie sich bei 
Ihrem Fachhändler, rufen Sie uns an, 
oder schreiben Sie uns. Wir informie- 
ren Sie gerne. 

Nebenbei... Sollten Sie zum Kreis der 
Grafiker, Textverarbeiter und Schreib- 
tisch-Publizisten gehören, wird es Sie 
interessieren, daß Arabesque alle 
wichtigen‘ Grafikformate unterstützt, 
Es ermöglicht sogar Vektorgrafiken in 
Programmen wie IST Word Plus und 
Signum! Zwei. 


Grafik: Arabesque « Satz und Film: Calamus 


Arabesque wird mit einem leicht- 
verständlichen Handbuch im stabilen 
Schuber geliefert und kostet (unverb. 
Preisempfehlung) 278,- DM. Service 
inclusive. 
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Wartezyklen 
beim ATARIST 


In einigen Zeitschriften konnte man 
über den ST lesen, daß der 68000-Pro- 
zessor (CPU) beim Zugriff auf den 
Speicher nicht durch WAIT-Zyklen 
gebremst wird und die Buszyklen mit 
voller Geschwindigkeit durchgeführt 
werden. Dies ist aber leider nicht ganz 
richtig. Es wird zwar nicht jeder Bus- 
zyklus mit WAITs verlangsamt, und 
der eigentliche Zugriff auf den Bus 
dauert nur vier Taktzyklen, aber bei 
einigen Buszyklen wird der Zugriff auf 
den Bus durch zwei WAITs verzögert. 


Ursprünglich wollte ich ein kleines Pro- 
gramm zur Messung der Laufzeiten ein- 
zelner Befehle schreiben, um die in ver- 
schiedenen Handbüchern zum 68000 
angegebenen Zeiten zu überprüfen. Denn 
erstens gaben verschiedene Bücher ver- 
schiedene Zeiten für gleiche Befehle an, 
und zweitens schienen viele Zeiten feh- 
lerhaft und nicht plausibel. Also schrieb 
ich ein kurzes C-Programm mit Inline- 
Assembly, das einen Timer startet, dann 
50mal den zu testenden Befehl ausführt 
und den Timer ausliest. 


Ein kurzer Test mit Befehlsfolgen, die aus 
einem bis fünf NOPs bestanden, zeigte, 
daß das Programm richtig arbeitete. Beim 
Testen von etwa 15-20 weiteren Befehlen 
(hauptsächlich MOVE- und CLR-Befeh- 
le) stimmten zu meiner Verwunderung 
die meisten gemessenen Zeiten nicht 
mehr mit denen in den Dokumentationen 
überein. Trotzdem überprüfte ich weitere 
Befehle und stieß auf immer merkwürdi- 
gere Ergebnisse, die sich immer schwerer 
erklären ließen. 
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GRUNDLAGEN 







Bei den Messungen zeigte sich nämlich, 
daß Befehlsfolgen, in denen sich nur die 
Reihenfolge der Befehle unterschied, 
nicht die gleiche Ausführungszeit brau- 
chen. Beispielsweise braucht die Schleife 


loop: nop 
clr.l DO 
dbra D7,loop 


nur 20 Taktzyklen pro Durchlauf, 


loop: cIr.l DO 
nop 
dbra D7,loop 


dagegen benötigt 24 Takte. 


Zuerst überlegte ich mir verschiedene 
Modelle, mit denen ich dieses Verhalten 
der CPU zu erklären versuchte. Aber er- 
stens gefiel mir keines dieser Modelle so 
richtig, und zweitens konnte keines die 
gemessenen Zeiten vollständig erklären. 


Obwohl es laut Motorola viele Befehle 
gibt, die in 6,10.14... Takten ausgeführt 
werden, z.B. c/r.! Dn (6 Takte) und dhra 
(10bzw. 14 Takte). sind die Ausführungs- 
zeiten aller Befehlstolgen, die das Pro- 
gramm ausgibt, stets Vielfache von vier 
Taktzyklen. 


Das brachte mich auf die Idee, daß die 
Buszugriffe der CPU möglicherweise mit 
einem 2-MHz-Takt, also einem Viertel 
des 8-MHz-Taktes der CPU, synchroni- 
siert werden, und daß daher alle Zeiten 
Vielfache von vier CPU-Takten sind. Der 
Grund für solche Wartezyklen ist bei vie- 
len Computern (z.B. auch beim C64), daß 
das RAM, in dem der Bildschirminhalt 
gespeichert wird, nicht vom Speicher des 
Prozessors getrennt ist. Daher müssen 


sich der Prozessor und der Video-Chip 
das RAM teilen und können nicht gleich- 
zeitig den Inhalt auslesen oder beschrei- 
ben. Aus der Bildfrequenz von 71Hz im 
Monochrommodus und 32 kByte Bild- 
schirmspeicher kann man abschätzen, 
wenn man die Zeit für den horizontalen 
und vertikalen Strahlrücklauf sowie die 
schwarzen Ränder des Bildes berücksich- 
tigt, daß der Video-Shifter des ST tatsäch- 
lich mit ungefähr 2 MHz auf das RAM 
zugreifen - und damit die CPU bremsen - 
muß, um das Bild darzustellen. Also ver- 
sprach dieser Ansatz eine Erklärung der 
erwähnten Effekte. 





Numeriert man die Takte mit 0 begin- 
nend. so bedeutet das, daß die Buszugriffe 
der CPU nur bei Taktnummern beginnen 
können. die ein Vielfaches von vier sind. 
Will die CPU aber einen Zugriff im Takt 
4n+2, n>=0 durchführen, muß sie zwei 
Takte warten und kann den Bus erst im 
Takt 4n+4 benutzen. 


Aufdiese Weise läßtsich dann auch erklä- 
ren, warum die Ausführungszeiten eini- 
ger Befehlsfolgen von der Reihenfolge 
der Befehle abhängen. Es gibt nämlich 
Befehle, die nach ihrem letzten Buszyklus 
noch 2 Takte intern arbeiten (z.B. cir.! 
Dn). Der darauffolgende Befehl wird also 
in einem Takt mit der Nummer 4n+2 
begonnen. Wenn dieser gleich mit einem 
Buszyklus anfängt (z.B. nop), muß die 
CPU erstzwei Takte warten, bevor sie auf 
den Bus zugreifen darf, weil sie sonst den 
Video-Shifter beim Bildaufbau stören 
würde. Wenn aber statt eines nop ein 
Befehl folgt, der vor seinem ersten Bus 
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zuerst zwei 























Takte intern. 
Danach kann 
der Buszyklus 
sofort im Takt 











4n+4 ausge- 
führt werden. 


Entsprechend 








kann man an 





der Differenz 
der Laufzeiten 
für die erste 



























































und die dritte 








Buszyklus 
elr.l 











zugriff zwei Takte verstreichen läßt (z.B. 
dbra d,,oder bra d,„, also Branch-Befeh- 
le mit 16-Bit-Distanz), fällt dieser Zugriff 
auf den Takt 4n+4 (also ein Vielfaches 
von vier), und die CPU muß keine WAIT- 
Zyklen einfügen. Das Bild zeigt das 
Timing noch einmal grafisch auf. Aus 
Gründen der Übersichtlichkeit habe ich 
die WAIT-Zyklen immer vor dem Buszy- 
klus, in dem sie auftreten, eingezeichnet. 
In Wirklichkeit werden diese Zyklen in 
den Buszyklus eingebaut, aber noch vor 
dem eigentlichen Zugriff auf den Bus. 





In Listing | ist ein kurzes Programm in 
Megamax-C angegeben, mit dem einzel- 
ne Befehle schnell auf ihr Timing unter- 
sucht werden können. Der zu testende 
Befehl wird in drei verschiedenen Schlei- 
fen ausgeführt. In der ersten Schleife folgt 
der Befehl immer einem nop, beginnt also 
synchron zum 2-MHz-Takt (also mit ei- 
ner Taktnummer 4n), denn der nop-Be- 
fehl endet sofort mit dem Abschluß des 
Buszyklus’. In der zweiten Schleife steht 
an Stelle des nop ein c/r.! DO, der zwei 
Takte länger dauert als ein nop. Der zu 
testende Befehl beginnt also in der Mitte 
eines 2-MHz-Taktes (Taktnummer 
4n+2). Wenn der zu testende Befehl so- 
fort mit einem Buszyklus beginnt, kann 
dieser in der ersten Schleife sofort ausge- 
führt werden, während in der zweiten 
Schleife zwei zusätzliche WAITs einge- 
fügt werden, so daß der Schleifendurch- 
lauf im zweiten Fall vier Takte länger 
dauert. Bei Testbefehlen, die ihren ersten 
Buszyklus erst nach zwei Takten begin- 
nen, sind die Ausführungszeiten der bei- 
den Schleifen gleich. In der ersten Schlei- 
fe müssen nach diesen ersten zwei Takten 
noch zwei zusätzliche WAITs eingefügt 
werden, und der Zugriff beginnt im Takt 
4n+4. In der zweiten Schleife beginnt der 
Befehl erst im Takt 4n+2 und arbeitet 


intern 


Schleife able- 
sen, ob die 
CPU nach 
dem letzten 
Buszyklus noch 2,6,10,... oder 0,4,8,... 
Takte intern arbeitet, bevor der Befehl be- 
endet und der nächste begonnen wird. 








Buszyklus 
di6(PC) 


Bevor das Assemblerprogramm zur ei- 
gentlichen Zeitmessung aufgerufen wird, 
übergibt das Hauptprogramm in den glo- 
balen Variablen ptr und iter einen Zeiger 
auf einen 8 kByte großen Speicherblock 
und die Anzahl der 
Schleifendurchläu- 





liegen und vom Vorteilerdes Timers noch 
durch 4 geteilt werden. Für eine leere 
Schleife, die nur aus dem dbra-Befehl 
besteht, mißt das Programm 11.98 Takte, 
die deshalb noch subtrahiert werden. 
Warum die leere Schleife 12 Takte und 
nicht, wie es laut 68000-Dokumentation 
sein müßte, 10 Takte dauert, kann sich 
nun jeder selbst überlegen. Einige interes- 
sante Ergebnisse kann man Tabelle 1 
entnehmen. 


Will man also die Laufzeit eines Pro- 
gramms auf dem ST berechnen, muß man 
nicht nur wissen, wieviele Takte jeder 
einzelne Befehl dauert, sondern auch, wie 
die Buszyklen innerhalb des Befehls ver- 
teilt sind und wo WAIT's auftreten. Dabei 
ist nicht nur interessant, wieviele Takte 
die CPU vor dem ersten bzw. nach dem 
letzten Buszugriff eines Befehls nur in- 
tern arbeitet. Bei MOVE (A0),d8(A1,A2) 
braucht die CPU zwischen zwei Buszu- 
griffen zwei Takte, um die zweite, relativ 
komplizierte Adresse zu berechnen. Die- 
se zwei Takte werden auf dem ST aber 
aus den genannten Gründen immer auf 








En = TEE nop (0,4,0) 
fe. Der Speicher Pa Dn (0.4.0) 
wird nur gebraucht, eIr.! Dn (0,4.2) 
falls man Befehle Scc Dn (0,4,2) falls Bedingung erfüllt 
wie move ea,-(A0 scc Dn (0,4,0) falls Bedingung nicht erfüllt 
a in I | bee du, (2.8.0) falls Bedingung erfüllt 
oder move ea(A0)}+ | boos d, (2,8,0) falls Bedingung erfüllt 
testen will, denn ir- bec 4, (4,8,0) falls Bedingung nicht erfüllt 
gendwohin muß das bec.s R (4,4,0) falls Bedingung nicht erfüllt 
an ae. dbcc Dn,d,, (4,8,0) falls Bedingung erfüllt 
AdrEBregister jä zer | dbee Dn.d,, (6.8.0) falls Sprung nicht ausgeführt 
gen. Zuerst zeigt das dbcce Dn,d,, (2,8,0) falls Sprung ausgeführt 
Adreßregister in die bsr d, (2,16,0) 
Mitte dieses Spei- ts Pen ER 
z 5 , asr.w m,Dn ‚4,2+2m) 
chers und kann dann Es #m_.Dn (0.4.4+2m) 
bei jedem Schleifen- move.x -(An),ea (2.x,0) hängt von ea ab 
durchlauf erhöht move.x Dn.d,(An,Rm) (2,x,0) 
oder erniedrigt wer- 
den. So wird verhin- nop (0,4,0) 
dert, daß es einen cir.w Dn (0,4,0) 
zufälligen Wert ent- elr.| Dn (0,4,2) 
hält und beim scc Dn (0,4,2) falls Bedingung erfüllt . 
SchreibenderRech scc Dn (0,4,0) falls Bedingung nicht erfüllt 
au -i R bee d,; (2,8,0) falls Bedingung erfüllt 
ner abstürzt. Die ge- bee.s d, (2,8,0) falls Bedingung erfüllt 
messenen Zeiten bcc d,, (4,8,0) falls Bedingung nicht erfüllt 
werden in dem elo- bee.s (4,4,0) falls Bedingung nicht erfüllt 
balen.Ai sche] 3 dbec Dn.d,, (4,8,0) falls Bedingung erfüllt 
alen Array ticks[3] | abec Dn.d, (6.8.0) falls Sprung nicht ausgeführt 
zurückgegeben und dbcc Dn,d,, (2,8,0) falls Sprung ausgeführt 
in die Anzahl der bsr d,; (2,16,0) 
en ts (0,16,0) 
Takte umgerechnet. asıw #m,Dn (0.4,2+2m) 
Dazu dient die | asrI _ #m,Dn (0,4,4+2m) 
Konstante CLKF. move.x -(An),ea (2,x,0) hängt von ea ab 


Sie setzt sich zusam- 
men aus den 8 MHz 
des CPU-Taktes und 


move.x Dn,d,(An,Rm) (2,x,0) 





Tabelle 1: Einige interessante Erkenntnisse über Buszyklen. Die drei Zahlen 


in den Klammern bedeuten jeweils die Anzahl der Takte vor dem ersten 


den 2.4576 MHz, die 
am MFP 68901 an- 


Buszyklus, vom Beginn des ersten bis zum Ende des letzten Buszyklus’ und die 
Anzahl der Takte nach dem letzten Buszyklus. 
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vier Takte ausgedehnt, gleichgültig wel- 
che Befehle vor oder nach dem MOVE 
stehen. 

Hier sei noch erwähnt, daß alles, was ich 
über das Timing geschrieben habe, erst- 
malnureine Hypothese ist, dienuraufden 
Ergebnissen des vorgestellten Pro- 
gramms basiert. Leider habe ich kein 
Oszilloskop, um das Timing genauer zu 
untersuchen und diese Hypothese zu stüt- 
zen. Es lassen sich damit jedoch die Aus- 
führungszeiten aller Befehle, die ich bis- 
her getestet habe, so gut erklären, daß 
sie mit ziemlicher Wahrscheinlichkeit 
richtig ist. 


#include <stdio.h> 
#include <osbind.h> 


GRUNDLAGEN 


Für viele Assembler-Programmierer wer- 
den diese Eigenschaften des STs keinen 
Einfluß auf ihre Programme haben. Es 
gibt jedoch auch unter den 68000-Pro- 
grammierern Leute (angeblich besonders 
die Grafikprogrammierer), die jeden 
Trick anwenden, um eine Mikrosekunde 
zu sparen. Man kann z.B. ADDA.W 
#d „An durch LEA d,,(An),An ersetzen 
und spart dann zwei oder sogar vier Takt- 
zyklen. Solche Geschwindigkeitsfanati- 
ker sollten diesen Artikel also besonders 
aufmerksam lesen und sich vielleicht mit 
Hilfe des abgedruckten Programms eine 
Tabelle anlegen, aus der besonders gün- 





#define CLKF (8e6/ (2.4576e6/4.0)) 


#define SIZE 8192L 


#define INSTR clr.l DO /* Hier steht der zu 
testende Befehl */ 


extern gettim(); 
char *ptr; 
int iter; 


Zeiger auf 8kB RAM */ 
Anzahl der 


Schleifendurchläufe */ 


int ticks[3]; 


gemessene 


Ausführungszeiten */ 


in 


(0. 


main() 
{ 
double time[3]; 
in 
int i; 


ptr = (char*)Malloc(SIZE); 


iter = 50; 
Supexec (gettim); 


MFP-Takten 
6144 MHz) */ 


Ausführungszeiten 


Sekunden */ 


/* pointer auf 8k 
RAM */ 


/* 50 Schleifendurchläufe */ 
/* Routine muP im 


Supervisor-Mode laufen */ 
printf("Die Anzahl der Takte pro 
Schleifendurchlauf war\n"); 


for(i = 0; i < 3; i++) 
{ time[i] = ticks[i] * 


CLKF; /* Zeit in 


Sekunden berechnen */ 
printf("in der %d. Schleife: %.Olf\n",i, 
time[i] / iter - 11.98); 


} 
Cnecin(); /* 
Mfree (ptr); 


SR,D6 
#0x0F00,SR 
#0, OxFAig 


getpar 
#255,0xFAlF ; 
#1, 0xFA19 





nop 


INSTR ; der 
nop 
nop 
dbf D7,1oopl 
move.b 
move.b 


#0, 0xFA19 
OxFAIF,DI 
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auf Taste warten */ 


Interrupts sperren 


imer initıialisieren 


Startwert 255 
und Countdown 


starten getpar: 


zu testende Befehl 


; Timer anhalten 


stige Befehlsreihenfolgen hervorgehen. 
Ich selbst halte einen solchen Aufwand 
allerdings für zu groß, wenn man bedenkt, 
wie wenig Zeit man mit solchen Tricks 
sparen kann, und daß sich ein anderer 
68000-Rechner schon wieder ganz anders 
verhält. Die Erfahrung zeigt außerdem, 
daß sich durch effizientere Algorhitmen 
wesentlich mehr aus einem Rechner her- 
ausholen läßt als durch geschickte und 
trickreiche Programmierung. 


Urs Thürmann 


#255,DO 
D1,D0 
#0xFF,DO 
DO,ticks(A4) 


getpar 
#255, 0xFAIF ; 
#1, 0xFA19 5 


Startwert 255 
und Countdown 
starten 


testende Befehl 


D7,10oop2 


#0, 0xFA19 
OxFAIF,D1 
#255,D0 

D1,DO 

#0xFF,DO 
DO,ticks+2 (A4) 


Timer anhalten 


getpar 
#255, 0xFAIF 
#1,0xFA19 


Startwert 255 
und Countdown 
starten 


testende Befehl 
lab 
D7,100p3 


#0, 0xFA19 ; 
OxFAIF,D1 

4255.00 

D1,DO 

#0xFF,DO 
DO,ticks+4 (A4) 
D6,SR 


Timer anhalten 


ptr(A4),AO Zeiger auf den 8 

kByte-Block nach AO 

für move ea,-(An) 

oder move ea, (An)+ 

Befehle u.ä. 

; Anzahl der 
Schleifendurchläufe 
nach D7 


#SIZE/2,AO 
A0,Al 





iter (A4),D7 


#1,D7 





Somewhere 
over the 
Rainbow 


Intimes zu 


TOS 1.4 


Nun ist esendlich soweit - die von vielen 
lang erwartete neue Version unseres 
Lieblings-Betriebssystems TOS ist fer- 
tig. Das neue TOS 1.4 wurde auf der 
Düsseldorfer ATARI-Messe offiziell 
vorgestellt und endgültig freigegeben. 
Dies ist Grund genug, es auch unseren 
Lesern vorzustellen. 


TOS 1.4 hört auch auf den Decknamen 
“Rainbow TOS”, da das ATARI-Zeichen 
in der “Desktop info”-Dialogbox in einer 
farbigen Animation (nur im Farbmodus) 
zu sehen ist, die wohl an einen Regenbo- 
gen erinnern soll (engl. “rainbow” = Re- 
genbogen). Diese offizielle Version da- 
tiert vom 6.4.1989 und ist damit zu unter- 
scheiden von den “Beta-Versionen” des 
Jahres 1988 und dem “Messe-TOS” vom 
22.2.1989, das auf der letzten CeBIT zu 
sehen war. 


Erfreulicherweise gibt es für Software- 
Entwickler auch eine Dokumentation, in 
der Änderungen, Fehler und besondere 
Programmierhinweise aufgeführt sind. 
Diese Doku ist zwar nicht ganz vollstän- 
dig und fehlerfrei, aber bietet wesentlich 
mehr, als man sonst von ATARI gewohnt 
ist. Überhaupt ist die Unterstützung der 
Software-Entwickler besser geworden, 
als sie es früher einmal war. Trotzdem 
konnte ich es nicht lassen, mir das TOS 
(speziell BIOS und GEMDOS) ein wenig 
unter der Lupe anzusehen, sprich zu di- 
sassemblieren und recompilieren. 


Heute möchte ich Ihnen die Ergebnisse 
bezüglich des BIOS mitteilen, und zwar 


GRUNDLAGEN 


in drei Stufen: für Anwender, Program- 
mierer und die TOS-Spezialisten, die ih- 
ren Computer bis in die letzten Eingewei- 
de kennen möchten. In den nächsten Aus- 
gaben der ST Computer beschäftige ich 
mich dann intensiv mit den Neuerungen 
beim GEMDOS, in Anlehnung und als 
Ergänzung zur GEMDOS-Serie “Auf der 
Schwelle zum Licht” (ST 1/88-11/88). 
Auf die für Nicht-Programmierer interes- 
santeren Verbesserungen am Desktop 
wird in dieser Zeitschrift an anderer Stelle 
eingegangen. 


Für den Anwender 


Kommen wir also zunächst zu den Ände- 
rungen, die für den Anwender interessant 
sind. Bekanntlich gibt es die sogenannten 
boot-fähigen Disketten, d.h. Disketten, 
von denen beim Reset automatisch ein 
kleines Programm geladen wird, das al- 
lerlei nützliche Dinge tun kann. Dazu 
zählen z.B. der “TOS-Loader” von ATA- 
RI, mit dem ein RAM-TOS von Diskette 
gebootet werden kann, Programme, die 
einem das Einstellen der Systemuhr er- 
lauben oder Hinweise über die Diskette 
ausgeben (Aladin). Es gibt vor allem bei 
Spielen sogar Boot-Sektor-Programme, 
die gleich das eigentliche Programm star- 
ten (Auto-Start-Disketten). Am verbrei- 
tetsten unter den Boot-Programmen sind 
aber wohl die “Boot-Sektor-Viren”, über 
die wohl schon genug geschrieben wurde. 







Das Laden und Starten dieser Boot-Pro- 
gramme geschah aber bisher nur beim 
Kaltstart (d.h. nach dem Einschalten des 
Rechners) oder wenn keine weiteren 
boot-fähigen Laufwerke vorhanden wa- 
ren (Harddisk, EPROM-Disk, reset-resi- 
dente RAM-Disk). Dies istnun anders, da 
jetzt bei jedem Reset auf jeden Fall ver- 
sucht wird, ein Boot-Sektor-Programm 
von Laufwerk A: zu laden. Dies verein- 
facht die Benutzung der oben erwähnten 
Auto-Start-Disketten, erhöht aber auch 
die Virengefahr. Ferner sollte man nun 
immer eine Diskette in A: haben, wenn 
man nicht von Diskette bootet, da der 
Boot-Vorgang sonst unnötig lange dauert 
(wegen des versuchten Zugriffs auf eine 
nicht vorhandene Diskette). 


Beim Booten von Harddisk (oder anderen 
DMA-Geräten) wird nun beim Lesen des 
Boot-Sektors ein zweiter Versuch ge- 
macht, falls beim ersten ein Fehler auftrat. 
Ausgenommen ist der Fall, daß keine 
Harddisk angeschlossen ist; dann wird 
weiterhin nur ein Leseversuch gemacht. 


Eine wichtige und schwierige Aufgabe 
des TOS ist die sichere Erkennung von 
Diskettenwechseln, da sonst sehr leicht 
Daten auf Disketten zerstört werden kön- 
nen. Bei Benutzung eines physikalischen 
Laufwerks als zwei logische Laufwerke, 
was zur bekannten häufigen Aufforde- 
rung “Bitte Disk X: in Floppy A: einle- 
gen” führt, konnte es passieren, daß ein 
Diskettenwechsel nicht erkannt wurde, 
wenn er und die Bestätigung dieser Auf- 
forderung sehr schnell (unter 1,5 Sekun- 
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den) erfolgten. Dieser Mangel ist nun 
behoben. 


Auch an der Tastaturbehandlung wurde 
einiges geändert. So kann ein Reset nun 
endlich durch Tastendruck, nämlich 
durch CONTROL-ALTERNATE-DE- 
LETE, ausgelöst werden. Dabei wird ein 
Warmstart durchgeführt, d.h. reset-resi- 
dente RAM-Disks usw. bleiben erhalten. 
Auch ein Kaltstart ist möglich, wenn 
zusätzlich noch die rechte SHIFT-Taste 
gedrückt wird. Dabei wird fast der gesam- 
te Speicher gelöscht, so daß dies vorher 
gut überlegt sein will. 





Die Tastenwiederholung wurde leicht 
modifiziert. Wenn man eine Taste ge- 
drückt hielt (z.B. ‘a’), bis die Tastenwie- 
derholung ansprach, und dann eine wei- 
tere betätigte (z.B. ‘s’), erschien nur ein 
‘s’, und die Tastenwiederholung blok- 
kierte, bis mindestens eine der Tasten 
losgelassen und eine weitere gedrückt 
wurde. Nun wird auch das ‘s’ automa- 
tisch wiederholt, bis eine weitere Taste 
gedrückt wird, usw. 


Für den Programmierer 


Auch für den Programmierer gibt es eini- 
ge Neuigkeiten. Da wären zunächst ein- 
maleine geänderte und eine neue XBIOS- 
Funktion. Die neue XBIOS-Funktion 
Floprate (Nummer 41) erlaubt das Ermit- 
teln und Verstellen der Floppy-Seek-Rate 
(Spurwechselzeit), und zwar für jedes 
Laufwerk einzeln. Dies ging bisher nur 
mit bestenfalls halblegalen Methoden (s. 
[1], Kapitel 8.2.). Warum ATARI die 
XBIOS-Nummer 40 unbenutzt gelassen 
hat, bleibt wohl ein Geheimnis. Die De- 
klaration in C sieht so aus: 


long Floprate(int drive, int rate) 


Für die Nicht-C-Programmierer: Die 
Funktion hat zwei 16-Bit-Integer-Para- 
meter und liefert einen 32-Bit-Integer- 
Wert zurück. Der erste Parameter drive 
gibt das Laufwerk an (0 oder 1, andere 
Werte sind zu vermeiden), der zweite die 
neue Seek-Rate. rate ist dabei genauso 
wie die Systemvariable i ($440) kodiert. 
Werte von O bis 3 stehen dabei für Seek- 
Raten von 6, 12,2 bzw. 3 Millisekunden. 


Die XBIOS-Funktion Rsconf wurde er- 
weitert und besser dokumentiert. Über- 
gibt man als ersten Parameter (Baud- 
Rate) den Wert -2, liefert die Funktion die 
mit Rsconf eingestellte Baud-Rate zu- 
rück. Wenn der MFP-Chip durch direkten 
Zugriff programmiert wird, bemerkt dies 
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Übersicht über das BIOS des TOS 1.4 











; L=siehe Listing, T=siehe Text 


sonst inhaltlich unverändert 





£c0000 L system header block 
£c0030 reset, Kaltstart 
fc0lf2 L Warmstart 

£c0530 von Floppy booten 
£c054c von DMA booten 
£c0578 L Boot-Sektor von DMA-Bus laden 

£fc060e DMA-Kommandobyte ausgeben 

£c0628 ROM-Modul testen und init. 

£c0652 Dummy-RTS-Routine 

£c0654 RAM-Lesetest 

£c066a Speicherkonfigurationstest 

£c068a Standard-BIOS-Farbpalette 

£fc06aa HBL-Handler 

£c06c0 L VBL-Handler 

£c07a2 XBIOS-Vsync 

£c07ba BIOS-Critical-Error-Handler 

£c07c4 TRAP #14/TRAP #13-Handler 

£c0950 XBIOS-Supexec 

£c0956 BIOS-Bcon... 

£c09f8 BIOS-Drvmap 

fc09fe BIOS-Kbshift 

fc0alO BIOS-Getmpb 

£c0a3c BIOS-Setexc 

£c0a54 BIOS-Tickcal 

£c0a5c XBIOS-Physbase/Logbase/Getrez/Setscreen 

£c0acd XBIOS-Setpalette/Setcolor 

£c0af0 xXBIOS-Puntaes 

£fc0b0a Bömbchen-Routinen 

fcObb6 Sektor kopieren 

£c0bd8 Laufwerke init. (Sprung über hdv_init 

fc0bf4 Auto-Ordner-Programme ausführen 

fc0efa XBIOS-Scrdmp 

£c0d0e über 'dumpvec’ aufgerufene Hardcopy-Routine 

£c0dc2 Timer-B-Zählroutine 

£c0dfe reset-residente “Päckchen”-Programme suchen und ausführen 
£c0e3e XBIOS-Gettime/Settime 

£c0e62 Kopie des System-header-blocks anlegen 

£c0e9e XBIOS-Blitmode 

£c0ec6 Test, ob Blitter vorhanden 























































Floppy-Routinen 

£c0e£f0 Laufwerk init. (flopini) 

£c0f38 XBIOS-Floprd 

fc0fe8 Fehlernummer aus FDC-Fehler bestimmen 
fc100a XBIOS-Flopwr 

£c10c6 XBIOS-Flopfmt 

£c1286 KXBIOS-Flopver 

£c1360 Floppy-VBL-Handler 


fel3de floplock 
fcl45c flopfail 
fel46a flopok 


£c14b0 
£cl4ce 
£c1502 
£fc1528 
£c153e 
£c1582 


Spur ansteuern 
Restore und Seek 

Spur suchen (go2track) 
Restore 

FDC-Kommando schicken 
FDC-Reset 

£fc159c Laufwerk und Seite selektieren (2 Routinen) 

£c16d8 Kommando-Bytes an FDC schicken 

£c1640 L Test auf Diskettenwechsel für ‘Bitte Disk einlegen...’ 
£c1682 DSB neu setzen 

£c1692 L *** XBIOS-Floprate: Seek-Rate ermitteln/neu setzen *** 
£c16ba T Floppy-hdv_init 

£c1732 BIOS-Getdsb 

fc173c BIOS-Getbpb 

£fcel8ec T BIOS-Mediach 

£c1956 interne Diskettenwechsel-Routine 

£fcla24 BIOS-Rwabs 

£claac £loprw 

£c1c76 XBIOS-Random 

£elec6 L Floppy-hdv_boot 

£c1d42 T XBIOS-Protobt 

£cle2e Checksumme für Boot-Sektor berechnen 

£cle5e Intel- nach Motorola-Format wandeln 











Rsconf nicht und liefert einen falschen 
Wert. Die restlichen Parameter sind bei 
diesem Aufruf beliebig. 


Rsconf hat laut ATARI-XBIOS-Doku- 
mentation keinen Rückgabewert, aber 
schon immer wurden die MFP-Register 
UCR, TSR, RSR und UDR vor dem 
Rsconf zurückgeliefert (außer bei einer 
“Baud-Rate” von “-2”). Dabei sind alle 
vier Register in einem Langwort zusam- 
mengepackt (UCR im höchstwertigen 
Byte, usw.). Die Rainbow-TOS-Doku- 
mentation segnet diese nun ab, doch 
spricht sie dabei von den Registern SCR, 
UCR, RSR und TSR. Diese Bezeichnun- 
gen wären auch sinnvoller, da dies die 
Register sind, die man mit Rsconf auch 
setzen kann. 


Protobt soll “IBM-kompatiblere” Boot- 
Sektoren erzeugen. Die einzige Ände- 
rung, die ich feststellen konnte, ist ein 
verändertes Media-Byte im Boot-Sektor 
bei einseitigen 80-Track-Disketten. Statt 
$F8 steht hier nunmehr $F9, obwohl ei- 
gentlich unter PC-DOS $F8 vorgesehen 
ist ([1])). Da ich zu wenig von PC-DOS 
verstehe, kann ich nicht sagen, ob das ein 
neuer Fehler oder tatsächlich eine Ver- 
besserung ist. Um volle MS-DOS-Kom- 
patibilität zu erreichen, sollen die ersten 
rei Bytes im Boot-Sektor $E9,$00,$4E 
sein. Der eigentliche Fortschritt besteht 
aber in einer verbesserten Formatierrouti- 
ne des Desktops, die das Media-Byte in 
der FAT und die ersten drei Bytes im 
Boot-Sektor richtig setzt. 


Die “Bömbchen”-Routine, die unerwar- 
tete Exceptions “behandelt”, terminiert 
das aktive Programm nun mit Pterm(-1) 
statt mit Prerm(0), so daß das übergeord- 
nete Programm 0x0000ffff von Pexec 
zurückbekommt. 





Eigene Tastatur-Interrupt-Routinen 
standen immer vor dem Problem, “nor- 
male” Tastendrücke von aus mehreren 
Bytes bestehenden “Paketen” (z.B. 
Maus-Bewegungs-Paket) unterscheiden 
zu müssen. Am Offset $24 ab dem von 
Kbdvbase zurückgelieferten Zeiger fand 
sich in allen TOS-Versionen ein Byte- 
Flag, das anzeigt, ob gerade ein aus meh- 
reren Zeichen bestehendes “Paket” vom 
Tastaturprozessor erwartet wird. Ab nun 
ist seine Lage (dieser Offset) offiziell 
dokumentiert. 


Eigene Tastatur-Interrupt-Routinen, die 
sich in den ikbdsys-Vektor einklinken und 
Tastendrücke einer “Sonderbehandlung” 
unterziehen wollen, sollten Bytes nur 
berücksichtigen, wenn das Flag Null ist. 


Diverses 
fcle84 
fclee0 
£elf4c 
£c1£70 
felfc2 
£c2080 
£c215c 
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Hardcopy-Ausgaberoutinen (4 Stück) 
superschnelle Löschroutine 
MEGA-Uhr nach GEMDOS-Uhr 

Test, ob MEGA-Uhr vorhanden 
Gettime für MEGA-Uhr 

Settime für MEGA-Uhr 

Hardcopy 


IKBD, RS232, Centronics, MFP 


£c315e 
£c31a8 L 
£c31d2 
£c3240 
£c3254 
£c326a 
£c32f6 
£c33a6 
£c344a 
£c3480 
£c3494 
fc34e4 
£e34fc 
fc365e 
£c36ac 
£c3754 
£c377e 
£c37£2 
£c3932 
£c39fe 
£c3al6 
£c3aec 
£c3c70 
£c3fbe 
£c3fec 
£c4034 
£c407e 
£c4102 
£c4lcc 
£c4206 
£fc424c 
£c4260 
£c4272 
£c429c 
fc42fe 


Ende des 
£c4388 


Uhrzeit-Paket in BIOS-Format umrechnen 
IKBD-Gettime 

IKBD-Settime 

Byte -> BCD 

BCD -> Byte 

MIDI-I/O-Routinen 
Centronics-I/O-Routinen 

RS232-Routinen (Ein-/Ausgabe und Status) 
IKBD-Routinen (Ausgabe und Status) 
XBIOS-Ikbdws 

Tastatur-Routinen (Eingabe, Status, Ausgabestatus) 
“Glocke” starten 

MFP init. 

Default-IOREC-Daten und RS232-Interrupt-Vektoren 
MFP-Timer init. 

XBIOS-Mfpint 

XBIOS-Jdisint/Jenabint 
RS232-Interrupt-Routinen (4 Stück) 
weitere RS232-Routinen 

XBIOS-Iorec 

XBIOS-Rsconf 

IKBD/MIDI-Interrupt 

Keyboard-Interrupt 
MIDI-Eingabe-Interrupt 

Maus-Emulator 

*** Shift-Ctrl-Alt-Routine *** 
XBIOS-Giaccess/Ongibit/Offgibit 
XBIOS-Initmous 

XBIOS-Xbtimer 

XBIOS-Keytbl/Bioskeys 

XBIOS-Dosound 

XBIOS-Setprt 

XBIOS-Kbrate/Kbdvbase 

200 Hz-Interrupt-Handler 
Sound-Interrupt-Routine (ohne Sound-Daten) 


BIOS 
GEMDOS und BIOS-Routinen für GEMDOS 


BIOS-Bildschirmtreiber 


fca2ec 
£ca342 
fca358 
fca38e 
fca3b4 
£ca3c6 
fca45c 
fca4b6 
£ca4d8 
£ca540 
£ca564 
£ca5e8 
£ca636 
£ca6b6 
£ca720 
£ca778 
£fca846 
fca8d4 
fca8da 
£fca936 
£fca93c 
£ca9b4 
fcaa46 
£cab20 
£cb4fc 
£cb586 
£cb5a0 
£cb5de 


VDI-ESC-Handler 

VDI-ESC 101 
ASCII-Out/Conout-Einsprung 
CTRL-Kodes 

TAB 

ESC-Behandlung 

ESC-Verteiler 

VDI ESC 1 

VDI ESC 17,3,2, ESC E,A,C,D,H 
Rest-Bildschirm, -Zeile löschen 
VDI ESC 11,13,14,15,16,18,19 
ESC I,L,M 

Cursor ein, ESC e,f,j,k,1 
Bildschirmbereich löschen, LF 
XBIOS-Cursconf 

ASCII-Zeichen ausgeben 
Blitter-Routine #0 

ab Cursor nach oben scrollen 
Blitter-Routine #1 

ab Cursor nach unten scrollen 
Blitter-Routine #2 
Bildschirmbereich löschen 
Cursor positionieren 


TOS-Bildschirmausgabe je nach Auflösung init. 
Blitter-Vektoren installieren 


Blitter-Vektor-Tabelle laden fcb65e 
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Es wird vom BIOS auf ungleich Null 
gesetzt, wenn ein Header-Byte eines 
“Paketes” empfangen wurde, und ist 
wieder Null, wenn der Empfang des 
“Pakets” beendet ist. Wenn man das Flag 
abfragen möchte, bevor man seine Inter- 
rupt-Routine installiert, sollte man zuerst 
solange warten, bis es Null wird, dann das 
Interrupt-Level (IPL) der CPU auf 7 set- 
zen, und, falls das Flag nun schon wieder 
gesetzt ist, den IPL wieder zurücksetzen 
underneut warten. Ansonsten kann ikbsys 
neu gesetzt und der IPL restauriert wer- 
den. So schlägt es ATARI vor. Ich würde 
zusätzlich noch eine Timeout-Abfrage 
einbauen, um eine Endlosschleife zu ver- 
hindern, falls das “Paket” aus irgendwel- 
chen Gründen nicht vollständig gesendet 
wird bzw. ankommt. 


Hier noch einige Erklärungen zur verbes- 
serten Diskettenwechselerkennung, die 
oben schon erwähnt wurde. Bei jedem 
Diskettenzugriff merkt sich das BIOS die 
aktuelle Systemzeit. Die Mediach-Routi- 
ne meldet nun, wenn es eigentlich einen 
“unsicheren” Wechselstatus festgestellt 
hat, trotzdem ein “kein Wechsel”, wenn 
seit dem letzten Zugriff nicht mehr als 
eine bestimmte maximale Zugriffszeit 
vergangen ist. Es geht also davon aus, daß 
“schnelle” Diskettenwechsel (kürzer als 
die maximale Zugriffszeit) nicht möglich 
sind. Dies spart das zu häufige Lesen des 
Boot-Sektors bei schreibgeschützten Dis- 
ketten (wo ein unsicherer Status ständig 
auftritt). 








Bisher wurde zur Zeitmessung der 200- 
Hz-Zähler (_hz_200) benutzt, nun wird 
frelock genommen (warum nur?). Daher 
istdie maximale Zugriffszeit jetzt von der 
Bildwiederholfrequenz abhängig. Sie 
liegtbei 1,25, 1,37 s bzw. 1,64s für 71 Hz, 
60 Hz bzw. 50 Hz Bildwiederholfrequenz 
(bisher immer 1,5 s). Daher wird in 
hdv_init die interne Variable für die 
maximale Zugriffszeit auf 82 statt bisher 
300 gesetzt. Die eigentliche Verbesse- 
rung besteht nun darin, daß die gemerkte 
letzte Zugriffszeit beim Wechsel zwi- 
schen den logischen Laufwerken A: und 
B: nach der Aufforderung “Bitte Disk X: 
in Floppy A: einlegen” auf Null gesetzt 
wird. Damit liefert Mediach nach einem 
solchen Wechsel nun auf jeden Fall den 
wahren Diskettenwechselstatus zurück; 
bisher wurde also bei einer Wechselzeit 
unter 1,5 s der Wechsel von Mediach 
nicht gemeldet. 

Die folgenden Änderungen sind von 
ATARI nicht dokumentiert worden, aber 
trotzdem wahr. 
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BIOS-Listing wesentlich geänderter Routinen 


;0S Header 


FC0000 
FC0002 
FC0004 
FC0008 
FCO00C 
FC0010 
FC0014 
FC0018 
FCOO1C 
FCOO1E 


FC0020 
FC0024 
FC0028 
FCO0O2C 


BRA 
de. 
de. 
de. 
de. 
de. 
de. 
de 
de. 
de. 


Pe ee 


de 
de. 
de. 
de. 


HPHRHRH 


$FCO030 
1,4 
$FC0030 
$FC0000 
$00611c 
$FC0030 
$FE8230 
$04061989 
3 

$1286 


$00378c 
$000E7d 
5005622 
0 


‚Version 1.4 
;Reset-Adresse 
‚Beginn TOS 
‚Beginn freies RAM 


‚Adresse GEM-MAGIC 
;Default-Systemdatum 22.2.1989 
;Land: FRG, PAL-Norm 
;Default-Systemdatum im GEMDOS- 
Format 

;Adresse GEMDOS-Variable 'mifl’ 
‚Adresse BIOS-Tastaturvariablen 
‚Adresse GEMDOS-Variable 'act_pd’ 


Listings wesentlich geänderter Routinen 


;Warmstart 


FC0432 
FC0438 
FC0442 


FCO448 
FCO44A 
FCO44E 
FC0450 
FC0452 
FCO0454 
FCO45A 
FCO45C 
FC0462 


JSR 
MOVE.W 
JSR 


Bcc 
BSR 
SWAP 
TST.B 
BEQ 
MOVE.W 
SWAP 
MOVE.W 
BSR 


$FC95C8 
$FCOOLE, $0060BE 
$FCIFAC 


$FC0462 
$FC31A8 

DO 

Do 

$FCO462 
D0, $0060BE 
Do 
D0,$00378A 
$FC0530 


;Boot-Sektor vom DMA-Bus laden 
;A4 von DMA-Boot-Routine gelöscht 


FC0578 
FCO57A 
FCO57E 
FC0582 
FCO586 
FCO58A 
FC0590 
FC0596 
FCO59C 
FCOS9E 
FCO5A2 
FCOSA6 
FCOS5SAA 
FCOSAE 
FC05B2 
FCO5B4 
FCO5B8 
FCO5BA 
FCOSBE 
FCO5co 


FCO5C2 
FCO5C4 
FCO5C8 
FCOSCA 
FCOSCC 


FCOSCE 
FCO5D2 
FCO5D8 
FCO5DC 
FCOSDE 


FCO5EO 
FCO5E4 
FCO5E6 
FCOSEA 
FCO5EC 
FCOS5SFO 


MOVEQ 
LEA 
LEA 
sT 
MOVE. 
MOVE. 
MOVE. 
MOVE. 
ADDQ. 
MOVE. 
MOVE. 
MOVE. 
MOVE. 
MOVE. 
MOVE. 
OR.B 
SWAP 
MOVE. 
BSR 
BNE 


BEZZZzzzuwun 


MOVEQ 
LEA 
MOVE.L 
BSR 
BNE 


DBF 
MOVE.L 
MOVE.W 
BSR 
BNE 


MOVE.W 
MOVE.W 
AND.W 
BEQ 
DBF 
MOVEQ 


#$01,D5 

$8606 (A4),A6 

$8604 (A4) ‚AS 

$043E (A4) 

$04C6 (A4) ,- (A7) 
$0003(A7),$860D (AA) 
$0002(A7),$860B (A4) 
$0001(A7),$8609(A4) 
#4,A7 

#$0098, (A6) 

#$0198, (A6) 

#$0098, (A6) 

#$0001, (A5) 

#50088, (A6) 

D7,D0 

#508,DO 

Do 

#5008A,DO 

$FCOGOE 

$FCOSFO 


#$03,D6 
$FCOSFE (PC) ‚AO 
(A0)+,DO 
$FCO60E 
$FCOSFO 


D6, $FCO5C8 
#$0000000A, (A5) 
#50190,D1 
$FC0612 

$FCOSFO 


#$008A, (A6) 
(A5) ‚DO 
#S00FF,DO 
$FCOSF2 

DS, $FC057A 
#SFF,DO 


;GEMDOS init. 
;Default-Datum setzen 
;MEGA-Uhr übernehmen, 

falls vorhanden 
;*%*%* -> MEGA-Uhr da ur 
;*** IKBD-Uhr auslesen \nfscheg 
;*** Datum holen “rr 
;rrr* ar 
sr** -> “Zeit ungültig” *** 
;*%*%* Datum übernehmen ER 
zerr ar 
;*%*% Zeit übernehmen vr 
;Floppy-Boot versuchen 


‚*** 2 Versuche *** 
‚alles wie bisher... 


;=-> Timeout bei Kommando-Byte: 
Abbruch 


;-> Timeout bei Kommando-Byte: 
Abbruch 


;-> Timeout bei Kommando-Byte: 
Abbruch 


;DMA-Statusregister 


;-> ok 
;*** DMA-Fehler: neuer Versuch *** 
;Fehlermeldung 


> 





Die ESC Y-Funktion des VT52-Emula- 
tors zum Setzen der Cursor-Position kon- 
trolliert nun den Spalten- und Zeilenpara- 
meter. Bei Werten größer als diemaxima- 
le Spalte bzw. Zeile wird der Maximal- 
wert benutzt. Bisher wurden beliebige 
Koordinaten “geschluckt”. Negative 
Werte werden weiterhin nicht abgefan- 
gen. 


Die XBIOS-Funktion Gettime blieb bis- 
her in einer Endlosschleife hängen, wenn 
das vom Tastaturprozessor angeforderte 
Uhrzeit-Paket nicht ankam. Nun erfolgt 
nach einer Sekunde ein Timeout, und 
Gettime liefert dann Null zurück. 


Die über die ZOREC-Strukturen verwalte- 
ten I/O-Puffer für Tastatur, RS232 und 
Midi durften nur maximal 32 kB groß 
sein. Jetzt sind sogar 64 kB erlaubt. 


Für Leute, die eigene Interrupt-Routinen 
über die Kbdvbase-Vektoren midisys und 
ikbdsys einhängen, hat TOS 1.4 noch eine 
Überraschung parat. Vom BIOS werden 
die Register DO-D3, AO-A3 und AS geret- 
tet, so daß man annehmen konnte, daß 
man diese Register selbst nichtretten muß 
(dokumentiert ist die Programmierung 
solcher Interrupt-Routinen ja nirgends). 
Wer nun A5 verändert hat, guckt ab TOS 
1.4 in die Röhre, da A5 nach Beendigung 
der eigenen Routinen immer Null sein 
muß. Dies kommt durch die Code-Opti- 
mierungen zustande, die ATARI vorge- 
nommen hat. 





Neue garantierte Systemvariablen gibt es 
eigentlich keine. “Eigentlich” heißt, daß 
die in früheren TOS-Versionen unbenutz- 
te Systemvariable $59E (Wort) beim 
Reset zwar gelöscht, aber sonst nirgend- 
wo im TOS angesprochen wird. Noch 
merkwürdiger ist, daß bei der Beta-Ver- 
sion an dieser Stelle stattdessen noch die 
Systemvariable _boortdev ($446) gelöscht 
wurde, wozu das auch immer gut sein 
sollte. Falls dies nicht einfach Unsinn ist, 
könnte es höchstens sein, daß $59E von 
einem anderen ATARI-Programm noch 
benötigt wird (ähnlich dem punptr des 
Harddisk-Treibers), wer weiß. 





Der system header block, der am Anfang 
des TOS zu finden ist (die Systemvariable 
_sysbase ($4f2) zeigt darauf), istnun offi- 
ziell dokumentiert (s. Abb. 1). Eine ge- 
nauere Erläuterung findet sich in [4]. 


Neu ist allerdings die Dokumentation zu 
den Konfigurations-Bits. Bit O steht hier 
für NTSC- bzw. PAL-Fernsehnorm, Bits 
1 bis 15 beinhalten eine Länderkennung 
(s. Abb. 2). 
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FCOS5F2 
FCOS5SF6 
FCO5F8 
FCOSFC 


FCO6CO 
FCO6C6 
FCO6CC 
FCO6DO 
FCO6D4 
FCO6DA 
FCO6DC 
FCO6EO 
FCO6E4 
FCO6E8 
FCO6EC 
FCO6EE 
FCO6F2 
FCO6F4 
FCO6FB 
FCO6FC 
FC0700 
FC0702 
FC0706 


FC1640 
FC1648 
FC164A 
FC164E 
FC1654 
FC1656 
FC1658 
FC165C 
FC1660 
FC1662 
FC166A 
FC1670 
FC1672 
FC1674 
FC167C 
FC1680 


»XBIOS 
FC1692 
FC1698 
FC169C 
FC169E 
FC16A4 
FC16A8 
FC16AC 
FC16B0 
FC16B2 
FC16B6 
FC16B8 


FC1CC6 
FCICCA 
FCICCE 
FCICD4 
FCICDA 
FCICDC 
FCICDE 
FCICE2 
FCICE4 
FCICE8 


FC1CEA 
FCICEC 
FCICF2 
FCICFB 
FCICFC 
FCICFE 
FC1D00 
FC1D02 
FC1D04 
FC1DOA 
FC1DOC 
FC1DOE 
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MOVE.W 
TST.B 
SF 

RTS 


;VBL-Routine 


ADDQ.L 
SUBO.W 
BMI 
MOVEM.L 
ADDQ.L 
SUBA.L 
MOVE.B 
MOVE.B 
AND.B 
CMP.B 
BGE 
BTST 
BNE 
MOVE.W 
DBF 
MOVE.B 
BRA 
BTST 
BEQ 


CMPI.W 
BNE 
MOVE.W 
CMP.W 
BEQ 
MOVE.W 
MOVE.W 
BSR 
ADDQ.W 
MOVE.W 
LEA 
CLR.L 
CLR.L 
MOVE.W 
CLR.W 
RTS 


#41: 
LEA 
TST.W 
BEQ 
LEA 
MOVE.W 
MOVE.W 
CMP.W 
BEQ 
MOVE.W 
EXT.L 
RTS 


LINK 
MOVEM.L 
ISR 
TST.W 
BEQ 
MOVEQ 
MOVE.W 
CLR.L 
MOVE.W 
CLR.W 


CLR.L 
MOVE.L 
ISR 
ADDA.W 
TST.L 
BNE 
CLR.W 
BRA 
TST.B 
BNE 
MOVEQ 
BRA 


#$0080, (A6) 
Do 
$043E (A4) 


#1,$000466 
#1,$000452 
$FCO79A 
DO-A6,-(A7) 
#1,$000462 
A5,A5 
$FAO1(A5),D1 
$8260 (A5) ‚DO 
#503,DO 
#$02,DO 
$FC0702 
#507,D1 
$FC0722 
#507D0,DO 
DO, $FCO6F8 
#$02,DO 
$FC0714 
#507,D1 
$FC0722 


;Diskettenwechsel-Aufforderung 


#50001,$0004A6 
$FC1680 
$0010(A7),DO 
$000ED4,DO 
$FC167C 
D0,-(A7) 
#SFFEF,- (A7) 
$FCO7BA 

#4,A7 

#$FFFF, $0009FA 
$0009FC,AO 
(A0)+ 

(A0) 


$0010 (A7) , $000ED4 


$0010(A7) 


$000A4C,AO 
$0004 (A7) 
$FC16A4 
$000A50,A0 
$0002 (A0),DO 
$0006(A7),D1 
#$FFFF,D1 
$FC16B6 
D1,$0002(A0) 
Do 


;Floppy-hdv_boot 


A6, #$0000 
D6-D7,-(A7) 
$FCOBDS 
$0004A6 
$FC1D12 
#502,D7 
#50001, (A7) 
-(A7) 
#$0001,-(A7) 
-(A7) 


-(A7) 
#50000181C, - (A7) 
SFCOF38 
#50010,A7 
Do 
$FC1DO4 
D7 
$FC1D10 
S0009F8 
SFC1D10 
#503,D0 
$FC1D38 





‚Rest wie bisher... 


;zunächst wie bisher 


;*** Monochrom-Bit nur einmal lesen *** 


;*** Abfrage im Register 


;*** Abfrage im Register 


;ab hier weiter wie bisher 


;zunächst nichts Neues 


;Schreibschutzstatus A,B unsicher 
** letzte Zugriffszeit *** 

** rücksetzen für A: RER 

** und B “rr 
;akt. Floppy neu setzen 





Seek-Rate ermitteln/neu setzen 


;DSB Floppy A 
‚Laufwerk 


;DSB Floppy B 
;neue Seek-Rate 
;-> nein: nur lesen 


;neue Seek-Rate setzen 
;akt. Seek-Rate zurück 


;hdv_init aufrufen 


£lops 
> keine Floppy: Abbruch mit 1 


;1 Sektor 
;Seite 0 und Spur 0 (*** optimiert! ***) 
;Sektor 1 
;*** immer Floppy A: statt ‘bootdev’ *** 
; (Abbruch bei ‘bootdev’ >=2 fehlt jetzt) 
‚Filler 
;BIOS-Sektorpuffer 
;Floprd 


;-> Sektor nicht lesbar: Abbruch mit 2 
;Boot-Sektor gelesen: kein Fehler 


;WP-Status von A: (früher falsch bei B:) 
;-> nein: Abbruch mit 2 
;ja: Abbruch mit 3 





Für die Benutzung von p_run aus dem 
OS-Header ist es wichtig, die Adresse 
unter TOS 1.0 zu kennen. Bei allen TOS- 
Versionen außer der spanischen (!) lautet 
sie $602C, bei der spanischen $873C. 


Alte und neue Fehler 


Leider hat ATARl einige Fehler im BIOS 
immer noch nicht beseitigt. BIOS/ 
XBIOS-Aufrufe aus Interrupt-Routinen 
heraus sind immer noch gefährlich, da die 
Interrupts während des Rettens der Regi- 
ster in die BIOS save area weiterhin nicht 
gesperrt werden (s. hierzu [2]). 


Der Boot Device-Fehler besteht noch 
immer. Beim Erstellen der Ur-Environ- 
ment-Strings wird das Boot-Laufwerk 
fälschlich mit ‘move.b $446,d0° statt 
‘move.w $446,d0’ ermittelt. Beim Laden 
der Auto-Ordner-Programme ist an einer 
Stelle eine Stack-Korrektur immer noch 
falsch (addq #6 statt add #12), was in 
ungünstigen Fällen zum Absturz führen 
kann. 


Einige Fehler wurden nun zum Feature 
deklariert, d.h. man muß mit ihnen leben 
bzw. sie umgehen, wobei auch hier 
ATARI hilfreich zur Seite steht: 


Die Ausgabe-Status-Routinen (Bcostat) 
für Tastaturprozessor und MIDI-Schnitt- 
stelle waren und bleiben vertauscht. Bco- 
stat(4) liefert also nun offiziell den MIDI- 
und Bcostat(3) den IKBD-Status. Witzi- 
gerweise ist dies in der TOS-Doku genau 
verkehrt herum, also so wie es eigentlich 
sein sollte, angegeben! 


screenpt wird nach dem Setzen der neuen 
Bildschirmadresse in der VBL-Routine 
nicht gelöscht. Dies führt zu Komplika- 
tionen, wenn parallel mit Serscreen gear- 
beitet wird (s. [4]). ATARlempfiehlthier, 
entweder nur jeweils eine Möglichkeit zu 
benutzen, oder vor dem Aufruf von Set- 
screen screenpt auf Null zu setzen. Da 
aber ein vorher gelaufenes Programm 
schon screenpt benutzt haben könnte, 
bleibt einem wohl nichts anderes übrig, 
als screenpt bei jedem Setscreen zu lö- 
schen! 


Programme, die sich in den resvector 
eingehängt haben, können zwar mit ‘jmp 
(a6)’ ins BIOS zurückspringen, doch 
müssen sie sich dann vorher aus resvector 
aushängen, da sie sonst erneut aufgerufen 
werden. Daher hatte ATARI in der Doku- 
mentation zur Beta-Test-Version des 
TOS 1.4 garantiert, daß “jmp $24(a6)' 
zum Sprung ins BIOS nach der resvector- 
Abfrage führt (siehe [4]). Dies ist in der 


GRUNDLAGEN 


Offset Name C-Datentyp 


$00 os_entry 
$02 os_version 
$04  reseth 

$08 os_beg 
$0C os_end 


unsigned int 
unsigned int 
char * 
OSHEADER * 
char * 


Bedeutung 


Sprungbefehl auf Reset-Handler 
TOS-Versionsnummer 

Zeiger auf Reset-Handler 

Zeiger auf diesen Header 

Zeiger auf Ende des von BIOS/GEMDOS/VDI 


benutzten RAMs 


char * 
char * 


$10  os_rsvi 
$14  os_magic 


unbenutzt, reserviert 
Zeiger auf Parameterblock für Speicherbedarf 


des GEM 


$18  os_date long 


Datum der TOS-Erstellung 


(Format $JJJJMMDD) 


$1C os_conf unsigned int 

$1E os_dosdate unsigned int 
;ab hier erst ab TOS 1.2 

$20  p_root char ** 

$24 _ pkbshift char ** 

$28  p_run char ** 


Konfigurations-Bits (s. Text) 
Datum der TOS-Erstellung (GEMDOS-Format) 


Zeiger auf ‘mifl'-Listen 
Zeiger auf Keyboard-Shift-Variable 
Zeiger auf Zeiger des aktuellen GEMDOS- 


Prozeßdescriptors 


$2C  p_rsv2 char* 


Abb. 1: Der “OS-header” (OSHEADER) 


TOS 1.4-Doku wieder verschwunden, 
vermutlich weil sich damit nur jeweils ein 
Programm in resvector installieren kann. 
Nun wird eine andere Methode vorge- 
schrieben, nach der sich jedes Programm 
bei der Installation seiner Reset-Routine 
resvector und resvalid merken soll, um 
diese Werte, wenn es über resvector auf- 
gerufen wird, wieder zurückzusetzen. 
Dadurch können mehrere Programme auf 
diese Weise resident gemacht werden, 
allerdings müssen sie sich nun auch beim 
Reset aushängen! 


TOS 1.4 sollte dafür sorgen, daß Zeit und 
Datum zumindest beim Reset nicht verlo- 
rengehen, indem es ausnutzt, daß der 
Tastaturprozessor die Zeit beim Reset 
nicht vergißt. Für ST-Benutzer, die über 
keine eingebaute Uhr verfügen, wäre dies 
eine Erleichterung, da sie die Uhr nur 
einmal nach dem Einschalten stellen 
müßten (z.B. mit dem Kontrollfeld-Ac- 
cessory). Nur wenn die Uhr beim Warm- 
start nicht sinnvoll eingestellt ist, würde 
sie auf den bekannten Default-Wert (hier 
6.4.1989) gesetzt. Beim Warmstart wird 
also zunächst geprüft, ob eine eingebaute 
MEGA-Uhr vorhanden ist, um ihr gege- 
benenfalls die Priorität zu geben. Diese 
Abfrage ist falsch programmiert, so daß 
stets angenommen wird, daß eine 
MEGA-Uhr vorhanden ist, und somit 
niemals die Zeit aus der Tastaturprozes- 
sor-Uhr übernommen wird. Dokumen- 
tiert ist dieses offensichtlich geplante 
Feature übrigens auch nicht. Vielleicht 
deshalb, weil man bei ATARI den Fehler 
nicht finden konnte?! 


unbenutzt, reserviert 
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Abb. 2: Länderkennungen 


Beim Überarbeiten der Rsconf-Funktion 
des XBIOS schlich sich leider ein Fehler 
ein, der dazu führt, daß der Handshake- 
Modus sich nicht richtig setzen läßt. Auch 
ATARI hat dies erkannt und bietet daher 
ein Patch-Programm, das diesen und ei- 
nen weiteren Fehler in shel_find korri- 
giert. Dieser Patch liegt reset-resident von 
$600-$800 und wird von einem AUTO- 
Ordner-Programm installiert. 


Die TOS-Dokumentation behauptet, das 
Setzen von ‘'RTS/CTS’ würde zum Ab- 
schalten jeden Handshakes führen. Für 
mich sieht das eher so aus, als würde das 
Setzen von ‘XON/XOFF’ zum Abschal- 
ten und das Setzen von ‘'RTS/CTS’ zum 
Aktivieren von 'XON/XOFF’ führen, ich 
konnte dies aber nicht genau verifizieren. 
Auch das Patch-Programm liegt mir zur 
Zeit nicht vor, so daß ich über dessen 
Funktionsfähigkeit nichts sagen kann. 
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SCSI Speed Drive Festplatten 


BE 5C51 Speed Drive Festplatten — 


eine der schnellsten und leisesten 
Festplatten für den Atari ST. 

1 Jahr Garantie, 

7 Tage Rückgaberecht, 

49 MB 28 ms und 85 MB 28 ms. 


Neu: Ultra Speed Drive 42 MB, 
19 ms, 64 KB Cache 


Neu: 155 MB SCSI Speed Drive 
Streamer, Übertragungsrate 
6,5 MB/Minute 


Nicht nur Bestellungen werden 
zu 95 % innerhalb von 24 
Stunden ausgeliefert, auch 
technische Überprüfungen, 
Anpassungen und Reparaturen 
brauchen selten länger. Wer 
sonst bietet das? 

Info-Telefon (02305) 12022 


Leistungsdaten: Die 
Verbindung eines reinen SCSI- 
Hochgeschwindigkeits- 
Hostadapters und die 
Verwendung von SCSI- 
Festplatten ermöglichen 
Geschwindigkeiten, die bisher 


noch nicht erreicht wurden. In 
der Praxis ergeben sich 
Geschwindigkeitssteigerungen 
zwischen 30 — 60%. Die 
Festplatte ist 100% kompatibel 
zu den original Atari ST 
Festplatten. Das heißt: Sie 
können auch andere 
Harddisktreiber oder den 
original Atari Harddisktreiber 
benutzen. PC Speed, PC Ditto, 
Aladin usw. sind auf unserer 
Festplatte selbstverständlich 
lauffähig. Desweiteren ist in 
der Festplatte eine Echtzeituhr 
integriert. Die Festplatte wird 
mit einer sehr umfangreichen 
Software ausgeliefert. 
DMA-Port: Der DMA-Port 
der Festplatte ist herausgeführt 
und komplett gepuffert. Das 
macht den Anschluß weiterer 
DMA-Geräte (Atari 
Laserdrucker, weitere 
Festplatten etc.) möglich. 


Die Technik: Durch eine 
besondere Art der 
Luftzirkulation wird die 
Festplatte ohne störenden 
Lüfter betrieben und die 
Laufgeräusche der Festplatte 
optimal unterdrückt. Das macht 
die Festplatte zu eine der 
leisesten Festplatten für den 
Atari ST. 

Das Gehäuse entspricht den 
Gehäuseabmessungen des 

Mega ST. Durch die robuste 
Ausführung kann es auch als 
Monitoruntersatz verwendet 


werden. Das Netzteil (VDE, 
GS) verfügt über 65 W und 
kann auch eine zweite interne 
Festplatte versorgen. Alle 
Festplatten verfügen über 
einen AUTO Park und sind mit 
einer speziellen Pufferung 
ausgestattet, die vor Schäden 
der Festplatte schützen, die 
durch kleine Stöße entstehen 
können. 


Die Software: „SCSI 
TOOLS” ist ein bisher 
einzigartiges Softwarepaket, 
das in Leistung, Zuverlässigkeit 
und Geschwindigkeit neve 
Maßstäbe setzt. SCSI TOOLS 
ist die erste HD-Software, die 
zum neuen Atari-Standard 
(AHDI 3.0) kompatibel ist und 
die neuen Möglichkeiten von 
TOS 1.4 nutzt. Hochgeschwin- 
digkeitstreiber voll AHDI 3.0 
kompatibel, beliebig große 
Partitionen, Sektorgröße 
veränderbar, variabler GEM 
DOS Cache Buffer, Turbo DOS 
Kompatiblitätsmodus, 
besonders ausgeklügelter 
Softwareschreibschutz, Booten 
von allen Partition per 
Tastendruck, zusätzliche 
Datensicherheit durch 
Sicherheitskopie der 
Verwaltungsinformationen, 
Ausmappen von defekten 
Sektoren auf Controler und 
GEM DOS Ebene, komfortable 


7 Tage 
Rückgaberecht 


graphische Benutzerführung 
mit Help Funktion, mit TOS 1.6 
(1040 STE) lauffähig, Speed 
Cache, Treibersoftware für 
integrierte Echtzeituhr, 
außergewöhnliches Back Up 
Programm. 


Garantie, Service: Auf 
unsere Festplattensysteme 
gewähren wir ] ganzes Jahr 
Garantie. Sagt Ihnen die 
Festplatte trotz unserer 
Qualität nicht zu, gewähren 
wir Ihnen ein siebentägiges 
Rückgaberecht unter 
Übernahme der Porto- und 
Verpackungskosten Ihrerseits. 


Preise: 49 MB 
28 ms 1598,- DM, 
85 MB 28 ms 1998,- DM, 
155 MB SCSI 
Streamer 1998,- DM 


sem Hard & Soft A. Herberg mm 
Bahnhofstr. 289 -» 4620 Castrop-Rauxel » & (02305) 15764 - Fax 12022 





Kommentiertes 
BIOS-Listing 


Für die Spezialisten unter Ihnen möchte 
ich noch direkt auf die Änderungen im 
BIOS eingehen. Generell wurden einige 
Optimierungen vorgenommen. Der Zu- 
griff auf Systemvariablen wird nun noch 
häufiger mit der Adressierungsart 
“Adreßregister indirekt mit 16-Bit-Off- 
set” (bei gelöschtem Adreßregister) statt 
“absolut lang” vorgenommen. Diese 
Methode wird außerdem jetzt auch bei 
den I/O-Adressen ab $FF8000 benutzt. 
Daraus darf man wohl schließen, daß 
ATARI immer noch keinen Assembler 
verwendet, der die “absolut kurz”-Adres- 
sierung beherrscht. Weiterhin wurden 
jetzt einige (aber noch nicht alle) 
“MOVE.X #0,..”-Befehle durch “CLR.X 
.. ersetzt, und andere Kleinigkeiten wur- 
den geschickter programmiert. Prinzi- 
pielle Optimierungen gibt es sonst keine. 


Zur Analyse habe ich das BIOS bis auf die 
Hardcopy-Routine disassembliert und 
mehr oder weniger gründlich mit dem des 
TOS 1.2 verglichen. Im abgedruckten 
Listing finden sich alle Routinen, an de- 
nen inhaltliche Änderungen vorgenom- 
men wurden (markiert durch ***). Aus- 
genommen sind nur einige Teile, bei 
denen lediglich Kleinigkeiten verändert 
wurden, die hier im Texterwähnt werden. 
Die Tabelle umfaßt die Anfangsadressen 
aller wichtigen Routinen, was - zusam- 
men mit einem BIOS-Listing des TOS 
1.2, z.B. [3] - eine gute Orientierungshilfe 
bietet. 


Noch nicht erwähnt habe ich bisher einige 
Kleinigkeiten. In der VBL-Routine wur- 
de zweimal die Monochrommonitor-De- 
tect-Leitung direktam MFP abgefragt. Da 
sie sich zwischen den beiden Abfragen 
geändert haben könnte, wird der MFP nur 
noch einmal angesprochen; das zweite 
Mal wird der beim ersten Mal gemerkte 
Zustand getestet. 


Bei der Ausgabe eines Zeichens über die 
Centronics-Schnittstelle werden alle In- 
terrupts gesperrt, während der Strobe 
gesendet wird. Damit wird verhindert, 
daß der Strobe wesentlich länger als üb- 
lich (zu lange?) dauern kann. 


Beim Test, ob die Hardware-Uhr des 
MEGA ST vorhanden ist, wird nun auch 
ein Bus-Error abgefangen. Normalerwei- 
se gibt es zwar keinen Bus-Error, wenn 
auf den Adreßbereich der MEGA-Uhr 
zugegriffen wird, obwohl diese gar nicht 
vorhanden ist, aber vielleicht gibt es hier 
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FC1D10 BRA $FC1D14 

FC1D12 MOVEQ #$01,D7 ‚Abbruch mit 1 

FC1D14 TST.W D7 

FC1D16 BEQ $FC1DOC ;-> bisher kein Fehler 
FC1D18 MOVE.W D7,DO Abbruch mit D7 

FC1D1A BRA $FC1D38 

FC1DIC MOVE.W #$0100, (A7) ;Checksumme berechnen 
FC1D20 MOVE.L #$0000181C,-(A7) 

FC1D26 BSR $FC1E2E 

FC1D2A ADDQ.L #4,A7 

FC1D2C CMP.W #51234,DO 

FC1D30 BNE $FC1D36 ;-> Boot-Sektor nicht ausführbar: Abbruch mit 4 
FC1D32 CLR.W DO ;Boot-Sektor ausführbar: Ende mit 0 
FC1D34 BRA $FC1D38 

FC1D36 MOVEQ #$04,DO ;Abbruch mit 4 

FC1D38 TST.L (A7T)+ 

FC1D3A MOVEM.L (A7)+,D7 

FC1D3E UNLK A6 

FC1D40 RTS 





;Test ob MEGA-Uhr vorhanden 


FC1F70 SUBA.L A1l,Al ;*** für optimierten Zugriff *** 
FC1F72 MOVE.W #$FC20,A0 ;I/O-Basisadresse der MEGA-Uhr 

FC1F76 MOVE.L $0008(Al),D2 ;*%*%* Bus-Error-Vektor merken *** 
FC1F7A MOVE.L A7,A2 ;**% SP merken hai 
FC1F7C MOVE.L #$FC1FB6,$0008 (Al) ;*** eigene Bus-Error-Routine *** 
FC1F84 MOVE.B #$09,$001B (AO) ;Uhr an, Alarm aus, Bank 1 anwählen 
FC1F8A MOVE.L D2,$0008 (Al) ;**%* alte Bus Error-Routine “r. 
FCIF8E MOVE.W #$0A05,DO 

FC1F92 MOVEP.W D0,$0005 (AO) ;Alarmzeit-Minuten auf unsinnigen Wert 
FC1F96 MOVEP.W $0005(A0),D1 

FC1F9A AND.W #$OFOF,D1 ;hat dies geklappt ? 

FC1F9E CMP.W DO,Dı 

FC1FAO BNE $FCIFBC ;-> nein: MEGA-Uhr nicht vorhanden 
FCIFA2 MOVE.B #$01,$0001(A0) ;CLKOUT auf 16384 Hz 

FC1FA8 MOVE.B #$08,$001B(A0) ;Uhr an, Alarm aus, Bank 0 anwählen 
FCIFAE MOVE.B #$00,$001D(A0) ;Testregister löschen, C=0 ! 

FCI1FB4 RTS 

;eigene Bus Error-Routine 

FC1FB6 MOVE.L A2,A7 ;**%* SP restaurieren vr 
FC1FB8 MOVE.L D2,$0008 (Al) ;*** Bus-Error-Vektor restaurieren *** 
FC1FBC ORI.B #$01,CCR ;C=1: MEGA-Uhr nicht vorhanden 


FC1FCO RTS 


;Gettime von IKBD 

FC31A8 MOVE.B #$FF,$OEAE (A5) ;Flag setzen: Zeitpaket noch nicht da 
FC31AE MOVE.B #$1C,D1 ;Befehl ‘interrogate time-of-day clock’ 
FC31B2 BSR $FC3460 ;Zeitpaket vom IKBD anfordern 

;*** auf Zeit-Paket warten mit Timeout *** 

FC31B6 MOVE.L $04BA(A5),A0 

FC31BA ADDA.W #$00C8,A0 ;hz_200 + 200 (Startzeit + 1s) 
FC31BE MOVEQ #$00,DO 

FC31C0O CMPA.L $04BA(A5),AO 

FC31C4 BCS $FC31DO ;-> 1s überschritten: OL zurückgeben 
FC31C6 TST.B S$OEAE(A5) ;Flag testen 

FC31CA BNE $FC31C0 ;-> Zeitpaket noch nicht empfangen 
FC31CC MOVE.L $0E6C(A5),DO ;empfangenes Paket im XBIOS-Format 
FC31D0 RTS 


;Zeichen über Centronics ausgeben 

FC3332 MOVE.W SR,D3 ;SR retten 

FC3334 ORI.W #$0700,SR ;IPL 7 

FC3338 MOVEQ #$07,D1 ;Register 7 PSG lesen 
FC333A BSR $FCA086 ; (Giaccess) 

FC333E ORI.B #$80,D0 ;Port B auf Ausgabe schalten 
FC3342 MOVEQ #$87,D1 

FC3344 BSR $FC4086 ; (Giaccess) 

FC3348 MOVE.W D3,SR ;IPL restaurieren 

FC334A MOVE.W $0006(A7),DO ;auszugebendes Zeichen 
FC334E MOVEQ #$8F,D1 ;nach Port B schreiben 
FC3350 BSR $FC4086 ; (Giaccess) 

FC3354 MOVE.W SR,-(A7) ;**% SR retten ur% 
FC3356 ORI.W #50700,5R RAR TPLIT. ERF 
FC335A BSR $FC336C ;Strobe low setzen 
FC335C BSR $FC336C nochmal !? (= Pause) 
FC335E BSR $FC3366 ;Strobe high setzen 
FC3360 MOVE.W (A7)+,SR ;**%* IPL restaurieren *** 
FC3362 MOVEQ #$FF,DO salles klar 

FC3364 RTS 

FC3366 MOVEQ #$20,D2 ;Strobe (Bit 5) 

FC3368 BRA $FC40BC ‚mit ‘ongibit’ setzen 
FC336C MOVEQ #$DF,D2 ;Strobe (Bit 5) 

FC336E BRA $FC40E2 ;mit 'offgibit’ löschen 





Ausnahmen oder Fehlfunktionen, denen 
hiermit abgeholfen werden soll. 


In den Blitter-Routinen (im Bildschirm- 
treiber die Nummer O bis 2) gibt es Schlei- 
fen, die warten, bis der Blitter seine Arbeit 
beendet hat. Bisher sahen die so aus: 


moveq #7,D4 
loop: 
bset d4,(a5) ;Blitter Busy testen und 
neu starten 
nop 
bne.s loop > Blitter noch beschäftigt 


Nun wird folgendes gemacht: 


loop: 
tas (a5) ;Blitter Busy testen und 
neu starten 
nop 
bmi.s loop > Blitter noch beschäftigt 


Der Unterschied besteht darin, daß bei ras 
das Testen und Setzen des Bits 7 des 
Zieloperanden in einem nicht-unter- 
brechbaren Schreib-Lese-Zugriff des 
68000 erfolgt. Beim bser könnte zwischen 
dem Testen und Neustarten des Blitters 
z.B. der DMA-Chip die Kontrolle über 
den Prozessor-Bus übernehmen. Sicherer 
istdie Verwendung von tas auf jeden Fall: 
ob es auch praktische Konsequenzen hat, 
weiß ich nicht. 


Ein letztes Wort 


So das war’s für heute. Auch wenn ich das 
BIOS relativ gründlich durchgearbeitet 
habe, ist dazu sicherlich noch nicht das 
letzte Wort gesprochen. Warten wir’salso 
ab. Festzuhalten bleibt, daß einige wichti- 
ge Punkte geändert oder verbessert wur- 
den, anderes unverständlicherweise beim 
alten geblieben ist. Auch die TOS-Doku- 
mentation ist ganz brauchbar und infor- 
mativ. Ich kann das “Rainbow-TOS” nur 
empfehlen, daeseinige ganzentscheiden- 
de Vorteile bietet, die hier nicht deutlich 
wurden, da sie hauptsächlich GEMDOS 
und Desktop betreffen. Bei dieser Gele- 
genheit möchte ich noch erwähnen, daß 
ich seit einiger Zeit auch in der MAUS- 
Mailbox Aachen (0241/154949) zu errei- 
chen bin (bzw. im angeschlossenen 
MAUS- und FIDO-Net), falls Sie noch 
Fragen zur GEMDOS-Serie oder dem 
TOS im allgemeinen haben sollten. 


Alex Esser 


Literatur: 

[1] Brod/Stepper: "Scheibenkleister II", MAXON 1989 

[2] Esser: "EXTKEY-Tastaturbelegung einmal anders” , 
ST-Computer 4/89 

[31 Brückmann/Englisch/Gerits: "ST intern”. 
Data Becker 1987 

[4] Esser: “Die Systemvariablen des TOS” , 
ST-Computer 11-12/88 
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‚Rsconf 


FC3A16 CMPI.W #$FFFE,$0004 (A7) ;"Baudrate” = -2 ? FC3AlC BNE 
$FC3A26 
FC3AlE MOVE.W $000A6E,DO ;ja: alte Baudrate zurück 
FC3A24 RTS 
FC3A26 ORI.W #$0700,SR ;IPL 7 bis zum Ende des TRAP-Aufrufs 
FC3A2A LEA $000C70,A0 ;Adresse IOREC für RS232-Eingabe 
FC3A30 LEA $FFFAO1,Al ;Adress MFP 
FC3A36 MOVEP.L $0028(Al),D7 ;UCR, RSR, TSR und UDR merken 

;statt SCR, UCR, RSR und TSR 
FC3A3A MOVE.W $0006(A7),DO ;Handshake-Modus 
FC3A3E CMP.W #$FFFF,DO ;*** Test auf ‘-1’ statt '<0’ ! “er 
FC3A42 BEQ $FC3A58 ;-> nicht ändern 
FC3A44 MOVE.B DO,$0020(A0) ;in IOREC-Verlängerung merken 
FC3A48 BEQ $FC3A54 ;7> kein Handshake 
FC3A4A AND.B #$3E,DO ;*** Bits 0,6,7 löschen statt Bit 1 *** 
FC3A4E BEQ $FC3A54 ;-> kein Handshake 
FC3A50 MOVE.B #$01,DO 
FC3A54 MOVE.B D0,$0020(A0) ;Handshake-Flag in IOREC setzen 

;**%* jetzt immer nur 0 oder 1 ar 
FC3A58 TST.W $0004 (A7) ;Baudrate 
FC3ASC BMI $FC3A98 ;-> nicht ändern 


FC3A5E MOVEQ #$00,D0O 


FC3A60 MOVE.B DO,$002A(A1) ;RSR löschen 

FC3A64 MOVE.B DO,$002C (Al) ;TSR löschen 

FC3A68 MOVE.W $0004(A7),D1 ‚neue Baudrate 

FC3A6C MOVE.W D1,$000A6E ‚merken für Rsconf (-2) 
FC3A72 LEA $FC3ACC, A2 

FC3A78 MOVE.B $00(A2,D1.W),DO ;Timer-Control-Wert 
FC3A7C LEA $FC3ADC,A2 

FC3A82 MOVE.B $00(A2,D1.W),D2 ;Timer-Data-Wert 


FC3A86 MOVE.L DO,DI 
FC3A88 MOVEQ #$03,DO ;Timer D 


FC3ABA BSR $FC36AC ;Timer setzen 

FC3ABE MOVEQ #$01,DO 

FC3A90 MOVE.B DO,$002A(Al) ;RSR: Empfänger ein etc. 
FC3A94 MOVE.B DO,$002C (Al) ;TSR: Sender ein etc. 
FC3A98 TST.W  $0008(A7) ;UCR 

FC3A9C BMI $FC3AAA ;-> nicht ändern 
FC3A9E MOVE.B $0009(A7),$0028 (Al) ;UCR setzen 

FC3AA4 TST.W $000A(A7) ;RSR 

FC3AA8 BMI $FC3ABO ;-> nicht ändern 
FC3AAA MOVE.B $000B(A7),$002A(Al) ;RSR setzen 

FC3ABO TST.W  $000C(A7) ;TSR 

FC3AB4 BMI $FC3ABC 

FC3AB6 MOVE.B $000D(A7),$002C (Al) ;TSR setzen 

FC3ABC TST.W $000E(A7) ;SCR 

FC3ACO BMI $FC3ACB ;-> nicht ändern 
FC3AC2 MOVE.B $000F(A7),$0026 (Al) ;SCR setzen 

FC3AC8 MOVE.L D7,DO 

FC3ACA RTS 


;aus Tastatur-Interrupt (nach Behandlung SHIFT/CTRL/ALT/CAPS) 
;verbesserte Tastenwiederholung 

FC3CFA BTST #$07,DO 

FC3D04 BNE $FC3D16 ;-> Taste losgelassen 

FC3D00 MOVE.B DO,$OE9B(A5) Scancode für Tastenwiederholung 
FC3D04 MOVE.B $000E9E,$0E9C(A5) ;Zähler für Wiederholschwelle init. 
FC3DOC MOVE.B S$O000E9F,$0E9D(A5) ;Zähler für Wiederholrate init. 





FC3D14 BRA $FC3D48 ;Taste in Tastaturpuffer übernehmen 
FC3D16 MOVE.B DO,D1 ;Taste losgelassen 

FC3D18 BCLR #$07,D1 ‚reiner Scancode 

FC3DIC CMP.B $0E9B (A5) ,D1 

FC3D20 BNE $FC3D30 ;-> andere Taste als letzte gedrückte 
FC3D22 MOVEQ #$00,D1 ;Tastenwiederholung aus 


FC3D24 MOVE. 
FC3D28 MOVE. 
FC3D2C MOVE. D1,$0E9D (A5) 

FC3D30 CMPI. #$C7,DO ;HOME losgelassen ? 
FC3D34 BEQ $FC3D3E 


D1,$0E9B (A5) 
D1,$0E9C (A5) 





wouwmw 


FC3D36 CMPI.B #$D2,DO ;INSERT losgelassen ? 

FC3D3A BNE $FC3FBC ;-> weder HOME noch INSERT: fertig 
FC3D3E BTST #$03, $0E7D(A5) ;ALT gedrückt ? 

FC3D44 BEQ $FC3FBC ;-> nein: fertig 


FC3D48 ;Tastencode soll nach Tastaturpuffer, dazu weiter untersuchen 





;Ende des Tastatur-Interrupts: Zeichen nach Tastaturpuffer 
;DO: ASCII-Kode in Bits 0-7, Scan-Kode in Bits 8-15 


FC3F74 MOVE.L %$0000(A0),A2 ;Pufferadresse 

FC3F78 SWAP DO ;Scan- u. ASCII-Kode nach Bits 16-31 
FC3F7A MOVE.W #$0000,DO 

FC3F7E MOVE.B $0E7D(A5),DO ;Kbshift-Status 

FC3F82 SWAP DO ;Status jetzt nach Bits 16-23 

FC3F84 LSL.L #8,DO 

FC3F86 LSR.W #8,DO ‚Bits 0-7: ASCII, 16-23: Scan, 24-31: 


Kbshift _, 
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FC3F88 
FC3F8A 
FC3F8E 
FC3F90 


MOVE.L DO,D2 
BCLR #$1C,D2 
SWAP D2 

cCMP.U #$0C53,D2 
FC3F94 BEQ $FC0030 
FC3F98 CMP.W #$0D53,D2 
RECHTS-DEL ? 
FC3F9C BEQ 
FC3FAO BTST 
Bconin ? 
FC3FA6 BNE 
FC3FA8 ANDI.L 
FC3FAE AND.L 
FC3FB4 MOVE.L 


;CAPS ignorieren 


;CTRL-ALT-DEL ? 
;-> Warmstart 
;CTRL-ALT-SHIFT 


$FCA034 
#503, $0484 (A5) 


;-> Kaltstart 
;conterm: Kbshift für 


$FC3FAE 
#S00FFFFFF,DO 
#S0000FFFF,D1 
D0,$00(A2,D1.L) 


;nein: Kbshift löschen 


;Zeichen nach 
Tastaturpuffer 
FC3FB8 ;neuer Pufferzeiger 


FC3FBC 


MOVE.W D1,$0008 (AO) 
RTS 


;Kaltstart auslösen 

;äußerst gründlich, da Hauptspeicher komplett gelöscht 
;es fehlt höchstens noch das RAM im IKBD... 

FC4034 MOVE.W #$2700,SR ;IPL 7 

FC4038 LEA $FC4050 (PC) ,AO ;Löschroutine ins RAM 
kopieren 

;32 Worte (ein bißchen 
viel zwar...) 

;ab Adresse $8 
(Bus-Error-Vektor) ! 


FC403C MOVE.W #$000F,DO 


FCA040 MOVE.W #$0008, Al 


FC4044 MOVE.L 
FC4046 DBF 


(A0)+, (Al)+ 
D0,$FC4044 


RIS - Elektronik 


Wir stellen aus 


Hobby + 
Elektronik 


89 Stuttgart 
Halle 10 
Komfortable und preisgünstige 
Umrüstung mit hohem 
Bedien-Komfort und optimalem Design 
® Farblich abgesetzte Flachtastatur mit 
blendfreien Tastaturkappen 


Exakter Endanschlag durch Hubverkürzung 
mit dem RTS-Anschlagsystem 


Geräuscharme Betätigung durch Formgebung 


Sichere Dateneingabe durch große 
Tastenzwischenräume 


Gewohnte originale Tastenbedruckung 


Einfacher Einbau (alte Tastenkappe raus, 
neue rein) 


Klare Trennung der Funktions- und Schreib- 
tastenblöcke 


Bedruckung: Deutsch, US-englisch, englisch, 
französisch, spanisch, VSM-Schweiz 

@ Verstärkung des Tastendruckes durch 
Federnsatz 


ANATART  isteingetragenes 


Warenzeichen der Atari-Cooperation 


N/ 


Baureihe St 





RIS - Elektronik Posttach 64: 7533 Tiefenbronn 
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FC404A SUBA.L A5,A5 
FC404C JMP $0008(A5) 


;Löschroutine 
starten 


;Speicher-Löschroutine für Kaltstart, ins RAM ab $8 


kopiert 
FC4050 LEA $FC4076 (PC) ‚AO 


FC4054 MOVE.L A0,$0008(A5) 


FC4058 LEA $FC4082 (PC) ,AO 
FCA05C MOVEQ 
FC405E MOVE.L 
FC4060 MOVE.L 
FC4062 MOVE.L 
FC4064 MOVE.L 
FC4066 MOVE.L 
FC4068 MOVE.L 
FC406A MOVE.L 
FC406C MOVEM.L 
FC4070 ADDA.W 
FC4074 BRA 


#$00,DO 
DO,D1 
D0,D2 
D0,D3 
DO,D4 
D0,D5 
D0,D6 
D0,D7 
DO-D7, (A0) 
#$0020,A0 
$FC4072 


FC4076 MOVE.L %$0004(A5), AO 
FC407A JMP (A0) 


Artikel 

Tastensatz Farbe weiß Baureihe ST 
Tastensatz Farbe weiß Baur. MEGA ST 
Funktionstastensatz Farbe beige 
Funktionstastensatz Farbe grau 
Federnsatz für Baureihe ST 


= (07234) 6915 + 5232 


;eigener Bus-Error- 
Handler 

;Anfang dieser 
Routine nun selbst 
zerstört !!! 
;Beginn löschen nach 
dieser Routine 


;schnelles Löschen 


‚immer ‘weiter... 
Bus-Error kommt 
;ROM-Reset-Adresse 
;Reset (wirkt wie 
Kaltstart) durch 
ROM 

222 


bis 


Die neue Flachtastatur 


Preis/DM 
99,- 

105,- 
25,- 
25,- 
15,- 


Fax-Nr. 07234/5574 





itte September führte 

OCEAN in Manchester 
Mitarbeitern der Vertriebsfirma 
Ariolasoft sowie einigen Fach- 
Journalisten Vorabversionen ihrer 
neusten Games vor: “Adidas 
Golden Shoe” ist ein Fußball- 
spiel, bei dem ein oder zwei Spie- 
ler ähnlich wie bei “Microprose 
Soccer” und “Kick off” die Action 
aus der Vogelperspektive verfol- 
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RELAX 








gen. Apropos Vogel. In “F29 
Retaliator” gehts in die Luft, um 
verschiedene militärische Ziele zu 
vernichten. Radar und Echtzeitan- 
zeigen sollen bei diesem Flugsi- 
mulator mit ausgefüllter Vektor- 
grafik für realistisches Fluggefühl 
sorgen. Wem es in den Wolken zu 
luftig ist, kann in “Chase HQ” mit 
einem Porsche Turbo über die 
Straße brettern, um Gangsterautos 








zu rammen. Für Kämpfernaturen 
kommt “The Untouchables”, ein 
knallhartes Actionspiel, in dem 
der Spieler Elliot Ness und seine 
Anti-Mafia-Einheit durch sechs 
gefährliche Szenen steuert. Leute, 
denen diese bleihaltige Atmo- 
sphäre keinen Reiz bietet, kom- 
men vielleicht mit “Lost Patrol” 
auf ihre Kosten. Eine Eliteeinheit 
von sieben stahlharten Soldaten ist 
mit einem Hubschrauber im viet- 
namesischen Dschungel abge- 
stürzt. Keine Bange! Es handelt 
sich nicht um ein Metzel- und 


Meuchelspielchen. Strategie und 
Adventure-Elemente stehen im 
Vordergrund. Es gilt, durch feind- 
liches Gebiet in ein amerikani- 
sches Militärcanmp zu gelangen. 
Dabei müssen Sie die Truppe mo- 
tivieren, für Proviant sorgen und 
sich mit den Eingeborenen ver- 
ständigen. Ins dunkle Mittelalter 
führt “Ivanhoe”, ein horizontal 
scrollendes Actionspiel, in dem 
der Spieler den berühmten Ritter 
Ivanhoe steuert und mit Schwert 
und Schild gegen Drachen, Ritter, 
Kobolde und Geister kämpft. 





F:: von Rollenspielen auf- 
merken: “Image Works” 
veröffentlichte kürzlich mit 
“Bloodwych” das erste Rollen- 
spiel, in dem zwei Spieler gleich- 
zeitig durch dunkle Dungeons 
laufen. Ein zweigeteilter Bild- 
schirm macht's möglich. Ziel des 
Spiels ist es. in einem unheimli- 





chen Schloß vier Kristalle zu fin- 
den. Beide Spieler können gegen- 
einander oder im Teamwork die 
Aufgabe lösen. Wie in fast allen 
Rollenspielen ist die Fantasywelt 
mit miesen Monstern und hilfrei- 
chen Charakteren gefüllt. Werkei- 
nen Mitspieler findet, kann sich 
auch alleine ins Abenteuer stür- 
zen. Egal, ob Sie 
alleine oder zu 
zweit spielen, 
“Bloodwych” 
bleibt ein Rollen- 
spielerlebnis. 





Fe) 


Bloodwych 


Garfield - 
Winter 
Tail 


rech, fett und faul, das ist 

Garfield, wie er leibt und 
lebt. Nach einem ausgiebigen 
Schlemmermahl hat der beliebte 
Comic-Kater mächtig Kalorien in 
sich hineingestopft und liegt jetzt 
in seiner Kuschelkiste, um von 
noch mehr Schleckereien zu träu- 
men. In seiner Fantasie ist er in der 
Nähe von Norditalien, wo es feine 
Lasagne gibt. Auch die Schweiz 
mit ihrer tollen Schokolade ist 
nicht weit weg. Keine Frage, der 
Spieler muß Garfield auf seiner er- 
träumten Schlemmertour beglei- 
ten und aufpassen, daß er nicht 
dabei aufwacht. Per Joystick sucht 
man eines von drei Teilspielen 
aus: Der Abfahrtslaufhat’s in sich. 
Baumstämmen, Ästen und Be- 
grenzungssteinen sollte man aus- 
weichen. Gelingt das nicht, voll- 
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führt Garfield eine unfreiwillige 
Akrobateneinlage im Pulver- 
schnee. Stärkungen werden am 
Rand der Piste bereitgehalten. 
Auffuttern! Das bringt Energie. 
Nimmt Garfield auch die letzte 
Sprungschanze mit Bravour, 
kracht er durch das Dach einer 
Lasagne-Fabrik. Hier darf er sich 
solange den Bauch vollstopfen, bis 
Odie kommt und ein Kaminfeuer 
auspustet. Weiter geht es dann 
sogleich in einer Schokoladenfa- 








brik, einem Labyrinth aus Plattfor- 
men, Aufzügen, Stangen und 
Fließbändern. Odie sollte man des 


Actionspiel. Freude bereitet bei 
diesem Spiel allerdings nur die 
samtweiche Animation des Titel- 
helden (teilweise echt trickfilm- 
reif!). Ansonsten halte ich das 
neue Garfield Spiel für einen 
Langweiler. Bis auf die Grafiken 
ist das Programm auch technisch 
danebengegangen. Das Scrolling 
ruckelt, als erschüttere ein Erdbe- 
ben Garfields Traumlandschaft. 
“Garfield - Winter Tail” ist nur 
eingefleischten Fans des Comic- 
Katers zu empfehlen. 
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öfteren einen Tritt in 
ID 











den Allerwertesten ver- 
passen, sonst frißt er 
alles weg. In der dritten 
Actionszene verfolgt 
Garfield ein Huhn, das 
auf einem zugefrorenen 
See Schokoladeneier | 


leg 





Sie sehen, einrecht 


| Kategorie: Actionspiel 
Besonderheiten: - 


1 | 
color 


Spieler: 
Monitor: 


Steuerung: 


Hersteller: The Edge 
Info bei: 


de Wertung: 








Bonico 

















abwechslungsreiches | 














F ans von Plattformspielen 
aufgepaßt! “ReLine” hat ein 
starkes Spielchen auf der Pfanne, 
bei dem Schuß- und Sammellei- 
denschaften geweckt werden. In 
Gestalt eines kleinen Roboters 
flitzt man durch 24 verschiedene 
Spielstufen, möglichst bevor das 
Zeitlimit abläuft. Dabei versuchen 
Fantasymonster (herumpurzelnde 
Kugeln, schleimige Sterne und 
gnadenlose Gespenster), den Ro- 
boter zu haschen. Vorsicht! Jede 
Kollision kostet ein Bildschirmle- 
ben. Widersacher kann man über- 
springen oder mit einer kleinen 
Kugel ausdem Wegräumen. Dazu 
drückt man einfach den Feuer- 
knopf - und schwupp, segnet das 
Monster das Zeitliche. Mit Extra- 
waffen geht’s noch leichter! Eine 
Smart Bomb fegt alle Gegner vom 
Bildschirm. Trotz effektiver Waf- 
fen sind einige Spielstufen eine 
ganz schön harte Nuß. Da ist 
schnell ein Bildschirmleben verlo- 
ren. Neue bekommt der spring- 
freudige Roboter übrigens hinzu, 





Hard’n 


HERUY 002333 


wenn er von den Sternchen, die 
überall herumliegen, 100 Stück 


einsammelt. “Hard’n 
steckt voller Überraschungen. In 
manchem Abgrund haben die Pro- 
grammierer Schatzkammern ver- 
steckt, in denen sich nach Her- 
zenslust Sternchen zusammenraf- 
fen lassen. Eine spaßige Angele- 
genheit! Nicht weniger unterhalt- 
sam sind die verschiedenen Spiel- 
modi. Entweder spieltman alleine, 


Heavy” 


Heavy! 





oder man macht Gebrauch von den 
beiden Zwei-Spieler-Modi. Da 
wechseln sich zwei Spie- 


istund Spieler 2 übernehmen muß. 
“Hard'n Heavy” macht gigantisch 
viel Spaß. Bei diesem Spiel stimmt 
einfach alles. Pfiffige Musik und 
die beiden Zwei-Spieler-Modi 
machen aus ReLines neuem Game 
das beste Hüpfspielchen seit 
“Great Giana Sisters”. Dereinzige 
Kritikpunkt gilt den einfallslosen 
Hintergrundgrafiken. Wenn man 
die langweiligen Muster über- 
haupt als solche bezeichnen kann. 
Doch dieses Manko tut dem Spiel- 
spaß keinen Abbruch. 
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THARD'N HEAUYI 'B 








ler ab, wenn einer von 
beiden ein Bildschirmle- 
ben verloren hat oder der 
Wechsel erfolgt automa- 
tisch nach einigen Se- 
kunden. Ganz schön 
stressig, wenn Spieler 1 
gerade in eine unange- 


Kategorie: Actionspiel 
Besonderheiten: - 


1.11 
color 


Spieler: 
Monitor: 


Steuerung: 


Hersteller: Reline 
Info bei: Rushware 


Wertung: 




















nehme Situation gelangt 
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Gesamtmodells und Einstellwinkel- 
überprüfung am fertigen Modell (s/w). 





VOKAV plus 1.0: Programm zum 
Lernen und Archivieren von Vokabeln 
aller Sprachen. Die 'intelligente' Ab- 
frage sorgt dafür, daß reine Tipp- 
fehler nicht als falsche Anwort ge- 
wertet werden, sofern die Eingabe im 
Kern richtig ist (s/w), 








PD-Szene eu) 








Jetzt mit Update-Seiten zur P.D. Fibel. 


Astro: Grafisch sehr eindrucksvoll 
aufgemachtes Astrologieprogramm 
mit vielen Funktionen (s/w). 
Lotto/Toto Systemwetten werden 
mit 'SYSTEMPRG auf einfache und 
komfortable Weise eingegeben, 
getestet und nach angenommenen 
Quoten ausgewertet (s/w). 

Lineare Algebra und Fakultät: 
Nützliche Matheprogramme (s/w). 


Delta X 2.0: Neue Version des be- 
liebten Etikettendruckers (s/w, S). 
Inventur 0.9 hilft bei der Bestands- 
aufnahme. Die vorliegende Version 
verwaltet einen Geschäftsbereich mit 
fünf Firmen und fünf Sortimenten mit 


n gelesen? 


je fünf Artikeln (s/w, S). 

SP-Börse - Charts*Analyse* Port- 
folio - ein Programm für spekulative 
Anleger. Börse verfügt über logisch 
nachvollziehbare Analysemöglich- 
keiten zur Kapitalvermehrung (s/w). 





Lohn- & Einkommensteuer ’88: 
Berechnungsprogramm (s/w, S). 
Tiluie: Adressverwaltung (s/w), 


Super Boot 5.5: Neue Version des 
Bootprogramms, mit dem Auto- 
Programme und Accessories auf 
einfache Weise beim Systemstart 
geladen werden können (S). 
Automat: Kombination aus 
ACC-Loader und Autobooter. 


Bonus: GFA-Utility, zur Überprüfung 
der Grafikbefehle unter GFA-Basic. 
Font Konverter für DEGAS- Fonts 
in Systemfonts und umgekehrt. Mit 
Fontedit (PD 189) erstellte Schriften 
können damit in DEGAS-Format 
übertragen und in STAD oder Tempus 
eingesetzt werden (s/w). 

1200/75: Software-Support für den 
BTX-Modus. 

Text-Add verbindet die vom BTX- 
Manager seitenweise abgelegten 
Textdateien zu einem Dokument. 
Tiny Boot versüßt den Bootvorgang, 
indem es ein zufällig gewähltes Bild 
auf's Desktop projeziert. 

Quick ST 1.0 beschleunigt die 
Textausgabe unter TOS 1.0 (80%), 
TOS 12 und 1.4 (25%). 

HD-Shell: Neue Oberfläche für 
Festplattenbesitzer, von der aus bis 
zu 18 Programme automatisch auf- 
gerufen werden können. 

Encrypt schützt Dateien vor 
fremdem Zugriff (s/w, e). 
Slow-Down stellt den ST auf Zeit- 
lupentempo ein. 


PD-Pool sucht noch einige gute Programme zur Veröffentlichung 
auf den Disketten 2061 - 2070. Die Vorstellung erfolgt gleich- 
zeitig in mehreren großen ST- und PD-Zeitschriften. 


Die vorgestellten Disketten erhalten Sie exklusiv bei folgenden PD-Anbietern: 


HD Computertechnik 
Pankstr. 42 

1000 Berlin 65 
030/4657028-29 


trendDATA 
Am Marstall 


V.U. - Volker Uecker 
Hohenkamp 2 
2308 Preetz 
Tel: 04342-83842 


Irenenstr. 76 


ST Profi-Partner 
Mönkhofer Weg 126 
2400 Lübeck 

Tel: 0451/505367 


Nelkenstr. 2 


T.U.M.-ST-Soft 
Postfach 1105 
2905 Edewecht 
Tel: 04405/6809 


Leloh 24 


Scheck über DM lie: 


3000 Hannover 1 
0511-166051 


H&S Wohlfahrtstätter 


4000 Düsseldorf 30 
Tel: 0211-429876 


OHST-Software 


4053 Jüchen 2 
Tel: 02164/7898 


Elektronikversand Michiels 


4056 Schwalmtal 
Tel: 02163/4187 


Intersoft 

Nohlstr. 76 

4200 Oberhausen 1 
0208-809014 


18-22 


Josefstr. 27 
5120 Herzogenrath 
02406-3223 


C 


IDL Software 
Lagerstraße 11 
6100 Darmstadt 13 
06151-58912 


Computer Treff 
Nettelbeckstr. 12 
6200 Wiesbaden 
06121-404302 


gt bei, ich erhalte die Ware 


verpackungs- und versandkostenfrei (Ausland: Bitte Euroscheck). 


Schreiber Software 


Computer Software Markert -PD-EXPRESS= J. Rangno 


Balbachtalstr. 71 
6970 Lauda 9 
09343/3854 


Weeske Computer 
Potsdamer Ring 10 
7150 Backnang 
07191/1528-29 od. 60076 


Gauger Software 
Buhlstr. 16a 

7505 Ettlingen 

Tel: 07243 - 31828 


iks 
Schönblickstr. 7 
7516 Karlsbad 4 


Ittlinger Straße 45 
7519 Eppingen-Richen 
07262/5131 (ab 17 Uhr) 


Software-Service Duffner 
Ritterstr. 6 

7833 Endingen a.K. 
07642-3875 


LAUTERBACH Software 
Josephsplatz 3 

8000 München 40 
089-2722377 


Graf & Schick EDV 
Hauptstraße 32a 
8542 Roth 


ab 18.00 Uhr 07202/6793 Tel: 09171/5058-59 


ir gemeinsame Projekte und Veranstaltungen im PD-Bereich. 











Diskpreis: 8,- DM 


Per Nachnahme. Nur Inland! unverbindlich empfohlener Verkaufspreis 


(zuzüglich DM 6,- Nachnahmegebühr). 


U 2001 U 201 DU 2021 U 2031 U 2041 m 2044 m 2047 U 2052 
EB) 2002 UO 2012 U 2022 DO 2032 ER 2042 mn 2045 U 2048 m 2053 
U 2003 Oo 2013 Oo 2023 im 2033 U 2043 m 2046 m 2054 
m 2004 im 2014 5 2024 Im) 2034 [ TeX Paketangebot: U 2055 


[[] 2005 [] 20 [[] 2025 [[] 2035 nes [[] 2058 
m 2006 m 2016 mn] 2026 U 2036 Dr ker et DO 2057 
oO 2007 m 2017 U 2027 U 2037 TeX+D 16,- oO 2058 
[DJ] 2008 [7201 [7] 2028 [7] 20ss II TE 2: [DD] 205 
[] 2009 [7] 208 DO 2029 = 2039 [] 2080 
m 2010 [2020 Oo 2030 Im 2040 


Lieferung an meine Adresse: 





TeX+D 20,- 
20.- 
16,- 
TeX+J 16,- 


2051 10,- 
TeX - Metafont 


TeX+G 
TeX+H 


STC 189 


OOOO00000 


Weitere PD-Disks bitte hier mit Nummer angeben. 


Gewünschte Disketten ankreuzen und Bestellschein an einen der oben angegebenen Anbieter einsenden. 


steht für knallharte 

Kriegsspiele, die in 
Deutschland schnell auf dem In- 
dex landen. Mit “New Zealand 
Story” schlägt der Hersteller jetzt 
in eine ganz andere Kerbe: Prota- 
gonist ist nicht ein meuchelnder 
Elitesoldat, sondern ein putziges 
Küken namens Tiki. Das niedliche 
Tierchen steckt in großen Schwie- 
rigkeiten: Ein biestiger Bösewicht 
hat Tikis Kameraden entführt und 
an 20 verschiedenen Orten im 
Auckland Zoo versteckt. Als ge- 
schickter Spieler müssen Sie Tiki 
durch 20 Spielabschnitte steuern 
und jedesmal ein Küken befreien. 
Das ist gar nicht leicht! In jedem 
Level wimmelt es nur so von Ge- 
stalten, die dem Helden ans Feder- 
kleid wollen. Da gibt es Ameisen 
mit Bumerang, feuerspeiende 
Vulkane, schießwütige braune 
Bären mit blauer Sonnenbrille und 
vieles mehr. Weichen Sie den 


cean 
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Schüssen aus und vermeiden Sie 
Berührungen. Um den vielen Geg- 
nern habhaft zu werden, ist Tiki 
mit Pfeil und Bogen bewaffnet. 
Trifft er damit einen Widersacher, 
bleiben Bonusfrüchte oder Extra- 
waffen auf dem Bildschirm zu- 
rück, die man einsammeln sollte. 
Mit Bomben oder Wasserpistole 


New Zealand Story 
el 


erhöht sich die Chance, 
auch einmal höhere Spiel- 
abschnitte kennenzuler- 
nen. Für Abwechslung ist 
gesorgt: “New Zealand 
Story” steckt voller Über- 
raschungen. Mal springt 
der Held über Plattformen, 
dann fliegt er mit einem 


Ballon oder schwimmt im Tau- 
cheranzug. Ich habe viele Tage vor 
dem Monitor verbracht, um Tikis 
Freunde zu befreien. Oceans neues 
Spiel ist wie eine Droge. Man 
fängt einmal an und kommt 
schwer davon los. Das Spielprin- 
zip macht total süchtig! “New 
Zealand Story” ist zusammen mit 
“Giana Sisters” das beste Ge- 
schicklichkeitsspiel, das es derzeit 
auf dem Markt gibt. Fans dieses 
Genres sollten unbedingt zugrei- 
fen! Es lohnt sich! 
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Kategorie: Geschicklichkeit 
Besonderheiten: - 


Spieler: 1 
Monitor: color 


Steuerung: be Wertung: 





Hersteller: Ocean 
Info bei: Ariolasoft 


























im und Struppi, die beiden 

beliebten Comic-Helden, er- 
leben ihre Abenteuer jetztauch auf 
dem Computer. Zu Beginn des 
Spiels zeigt der Computer einen 
hübschen Vorspann: Die Mondra- 
kete stehtan der Startrampe, Tank- 
lastzüge schaffen Sprit heran, und 
die Techniker arbeiten emsig. 
Dann rast die Rakete gen Himmel. 
Im ersten Level steuern Sie die 
Mondrakete mit Maus oder Joy- 
stick durch den Weltraum. Riesige 
Asteroiden fliegen auf die Rakete 
zu. Daheißtes ausweichen. Neben 
Steinklumpen schwirren auch 
Bojen noch im All herum. Die gel- 
ben Bojen bringen zusätzliche 
Energie. Jetzt steuert man Tim 
durch die vielen Räume der Mon- 
drakete. Für alle Probleme ist ein 
blinder Passagier verantwortlich. 
Dieser Gauner möchte aus irgend- 
einem Grund die Mondmission 
verhindern. Deshalb bringt er 
Sprengladungen an, legt kleine 
Feuerchen, schlägt Besatzungs- 
mitglieder nieder und fesselt sie. 
Deshalb hat Tim alle Hände voll zu 
tun, die Rakete nach brennenden 
Dynamitstangen abzusuchen. Ist 
man inder Nähe einer Bombe, hört 
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Tim und Struppi 
auf dem Mond 


man zwar das Ticken einer Zeit- 
zündung. Doch die Biester zu fin- 
den, istein Kunststück. Zwei- oder 
dreimal ist es mir gelungen, eine 
Sprengladung zu finden, als ich 
zufällig einen Raum betrat, indem 
ein zusammengerolltes Dynamit- 
bündel auf dem Boden lag. Abge- 
sehen von der Tatsache, daß die 





Bomben schwierig zu fin- 
den sind, gibt es noch einen 
anderen merkwürdigen 
Umstand: Die Rakete be- 
sitzt viele Türen und Luken, 
die sich aber nicht öffnen 
lassen. Es gibt weder 
Schlüssel noch Schalter, mit 
denen man den einen oder 


r 
3 
E 
E 
B 
E 
= 
= 
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anderen versperrten Zugang öff- 
nen könnte. Neben dem Bomben- 
entschärfen wollten Infogrames 
Programmierer den Spieler auch 
mit dem Löschen von kleinen Feu- 
erchen unterhalten. Dazu findet 
Tim in der Rakete einen Feuerlö- 
scher, mit dem er die Flammen 
ausblasen kann. Doch eskommen 
ständig neue nach. Die dritte spie- 
lerische Komponente liegt darin, 
gefesselte Besatzungsmitglieder 
durch einfaches Berühren zu be- 
freien. Daß “Tim & Struppi” spie- 
lerisch nicht gerade Bieber vom 
Barhocker haut, dürfte klar gewor- 
den sein. Doch es gibt auch Positi- 
ves zu vermelden: Die Grafik ist 
fein. Alle Comic-Stars sind ein- 
wandfrei zu erkennen. 


| 
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DO] LM UND STRUPPI AUF DEM MOND E 











Kategorie: Actionadventure 
Besonderheiten: - 


Spieler: i 
Monitor: color 


Steuerung: Wertung: 








Hersteller: Infogrames 
Info bei: Bomico 


























SHINOBI 


E ndlich ist Shinobi erschie- 
nen. Um es kurz zu beschrei- 
ben: Sie, ein Ninja Warrior, einer 
der besten Schüler der geheimen 
Samurai-Schule, haben die Aufga- 
be, diverse Ninja-Schüler aus der 
Gewalt von Bwah Foo zu retten. 
Wie könnte es anders sein: Sie 
kämpfen sich in5 Missionen durch 
verschiedenste Unholde, Schel- 
me, Bösewichte und Schurken. 


In derersten Mission begegnen Sie 
Pistolettis und schwertwerfenden 
Böslingen. Sie starten, kärglich 
ausgestattet, mit Wurfsternen. 
Natürlich können Sie auch einfach 
drauf los prügeln, laufen dann aber 
Gefahr, ineinSchlachtermesser zu 
tapsen. Sie sehen eine Kanonenku- 
gel auf sich zukommen? Ducken 
Sie sich, um auszuweichen. Die 
Kugel kommt von unten? Sprin- 
gen Sie 3 Meter hoch. In der ersten 
Mission müssen Sie 5 Schüler fin- 
den und das Ende des Levels errei- 
chen. Dabei scrollt der Bildschirm 
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horizontal von rechts nach links - 
erfreulicherweise, ohne groß zu 
ruckeln. Sollte die Situation ein- 
mal auswegslos sein, können Sie 
pro Level mit der Leertaste einen 
“Dschäi Aaahhhhr”-Schrei aus- 
stoßen, dessen nachfolgender 
Wirbelsturm alle Schurken vom 
Bildschirm in die Jagdgründe be- 
fördert. Diesen Spell können Sie 
pro Level einmal benutzen. Wenn 
Sie einen Level gemeistert haben, 
erhalten Sie Bonuspunkte und 
werden zur nächsten Mission be- 
fördert, in der weitaus gefährliche- 





re Unholde nur darauf warten, Sie 
gar grausig zu zerstückeln. Leider 
bleibt in allen Missionen die Spiel- 
taktik immer gleich. Nachdem Sie 
den ersten Führer der Gegner, der 
mit Feuerbällen um sich 


geln), um ein Bonusleben zu be- 
kommen. In der dritten Mission 
begegnen Ihnen diverse Fro- 
schmänner (und Froschfrauen?), 
während Sie forellenartig über 
einen Wassergraben hüpfen. In 
einer anderen schwierigen Mis- 
sion müssen Sie einen riesigen 
Helikopter zerstören (mit Wurf- 
sternen...), der ziellos 2 Meter vor 
Ihnen herumfliegt. Vermeiden Sie 
dabei, in die Raketen zu laufen... 
Shinobi spielt man doch besser in 
der Spielhalle. Häßliche Farben, 
immer der gleiche Ablauf, und 
wenn man es einmal geschafft hat, 
verstaubt das Spiel in der Ecke. 


ddfIMP 





Q 





TRETEN u 





wirft, besiegt haben, er- 
wartet Sie eine Bonus- 
runde. Hier müssen Sie 
mit vielen Wurfsternen 
alle Gegner totwerfen, 
die waagerecht über den 


Bildschirm huschen 
(eine Mischung aus | 


Kategorie: Hüpf- und Kletterspiel 
Besonderheiten: Coin-Op-Spiel 


Spieler: 
Monitor: 


Steuerung: 
Hersteller: 
Info bei: - 


1 
color 


Wertung: 





Virgin Ganes 











Space Invaders und Ke- 














E s gibt Programme, die brin- 
gen einen ganz schön in 
Schwierigkeiten: Man läßt alle 
Termine sausen, geht nicht mehr 
ans Telefon und vergißt, seine 
Texte vor Redaktionsschluß abzu- 
geben. Stattdessen sitzt man völlig 
fasziniert vor dem Monitor und 
ruckelt mit schweißgebadeten 
Fingern am Joystick. "Rainbow 
Island" ist so ein fatales Spiel. Sie 
steuern darin einen Jungen durch 
sieben Plattformwelten, die je- 
weils aus vier Spielabschnitten 
bestehen. Auf seinem Weg nach 
oben sammelt er schmackhafte 
Früchte, Diamanten und Extra- 
waffen. Manchmal sind zwei Pla- 
teaus zu weit auseinander. Dann 
setzt Bubby seine zauberhafte Ge- 
heimwaffe ein: den Magic Rain- 
bow. Dummerweise verläuft der 
Weg über die Plattformen nicht 
ohne Komplikationen. Putzig ge- 
zeichnete Widersacher wollen 
Bubby an die Wäsche. Da gibt es 
grüne Raupen, Spinnen, herum- 
ballernde Marienkäfer, Flugzeuge 
mit Augen und Nase, die kleine 
Bomben abwerfen und vieles 
mehr. Kommt einer der zahlrei- 
chen Störenfriede zu nahe, kann 


Rainbow Island 


man ihn mit dem magischen Re- 
genbogen außer Gefecht setzen. 
Ist das Zeitlimit überschritten, er- 
scheint die Meldung “Hurry up” 
auf dem Bildschirm. Dann sollte 
Bubby so schnell wie möglich die 
oberste Plattform erreichen, sonst 
ertrinkt er. Nach jeder vierten 
Spielstufe muß Bubby ein riesiges 
Monster mit seinen Regenbogen- 
geschossen besiegen. Dann ist der 
Weg in die nächste Plattformwelt 





frei. Für lang anhaltenden Spiel- 
spaß ist gesorgt. Insgesamt sind 
auf den beiden ST-Dis- 


und einer Portion Spielpraxis be- 
seitigen. Auch grafisch versteht 
“Rainbow Island” zu beeindruk- 
ken. Unzählige kunterbunte Spri- 
tes, die allesamt detailliert ge- 
zeichnet sind, verzücken das 
Auge. Meisterprogrammierer 
Andrew Braybrook (“Uridium”) 
hat in “Rainbow Island” mit sei- 
nem Programmierteam “Craft- 
gold” eine hervorragende Mög- 
lichkeit gefunden, sauberes, verti- 
kales Scrolling auf dem ST zu rea- 
lisieren. Dabei wird der Bild- 
schirm bei jedem Sprung ohne 
Ruckeln nur ein wenig nach oben 
verschoben. Genial! So, mehr 
schreibe ich nicht. Ich will jetzt 
wieder “Rainbow Island” spielen. 


cBO 








DI 











"ET RAINBOM ISLAND BE 








ketten 28 unterschiedli- 
che Spielstufen unter- 
gebracht. Spielerisch 
darf sich “Rainbow Is- 
land” zu den besten Ge- 
schicklichkeitsspielen 
zählen. Die Gegner sind 
nie link und lassen sich 


Kategorie: Geschicklichkeit 
Besonderheiten: - 


Spieler: t 
Monitor: 


Steuerung: 
Hersteller: Firebird 
Info bei: Rushware 


color 


Wertung: 























stets mit List, Tücke 
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PROJEKT 


Programmierte 


Logik 


Teil 2 


Einige Schaltungsbeispiele im GAL 


Nachdem im letzten Teil der Artikel- 
reihe die Grundlagen besprochen 
wurden, und man erahnen konnte, 
welche Möglichkeiten in diesen inter- 
essanten Bausteinen stecken, folgen 
diesmal einige Beispiele. Anhand von 
logischen Schaltungen werden die 
Möglichkeiten zu deren Implementie- 
rung in GALs aufgezeigt. Zuvor müs- 
sen wir uns aber noch ein wenig Theo- 
rie gönnen. 


Wenn man ein GAL brennen will, muß 
man die entsprechende Fuse-Matrix in 
das Brennprogramm eingeben. Damit 
man nun beim späteren Brennen eines 
GAL s mit demselben Inhalt nicht wieder 
die gesamte Matrix eintippen muß, wur- 
de vom Joint Electron Device Enginee- 
ring Council das JEDEC-Format als 
Standard bestimmt. Eine Fuse-Matrix, 
die sich in einer Datei mit diesem Format 
befindet, kann nun immer wieder zum 
Brennen eines Logikbausteins benutzt 
werden. Auch ist eine Weitergabe der 
Datei auf andere Rechner ohne Proble- 
me möglich, da sie nur ASCII-Zeichen 
enthält. Ein weiterer Vorteil dieser 
Standardisierung ist, daß man solche 
Dateien auch mit anderer Brenn-Hard- 
und Software benutzen kann. Logik- 
Compiler (das sind Programme, die aus 
logischen Gleichungen oder Funktions- 
tabellen Fuse-Matrixen erzeugen) be- 
nutzten dieses Format ebenfals, so daß 
man ausgegehend von den Logikglei- 
chungen bis zum fertig gebrannten GAL 
jede beliebige Soft- und Hardware- 
Kombination (auch auf verschiedenen 
Rechnern) benutzen kann. Ich werde im 


weiteren nicht auf das komplette Format 
eingehen, da nur ein Teil zur Program- 
mierung der GALs notwendig ist. 


Das JEDEC-Format 


Jeder Eintrag in einer JEDEC-Datei be- 
ginnt mit einem Steuerzeichen und endet 
mit dem Asterix (*). Als erstes steht in 
dem File eine 02 (Steuerzeichen: 
<STX>). Nun können beliebige Angaben 
folgen (z.B. Namen, Versionsnummern, 
Hinweise...), die später nicht ausgewertet 
werden (* am Ende nicht vergessen!). 
Die folgenden Datenfelder können in be- 
liebiger Reihenfolge in der Datei stehen. 


Fuse-Feld: Es besteht aus maximal drei 
Teilen. Wenn in der folgenden Fuse-Li- 
ste nicht für alle Sicherungen der jeweili- 
ge Zustand angegeben wird, muß der fol- 
gende für die weggelassenen aufgeführt 


Byte 
Fuse 


Byte 
Fuse 


Byte 12 “ 
Fuse Nr. 


An die Stelle der Zahlen kommen 
die entsprechenden Ber und ler. 
An die Stelle der - kommen Ber. 


Die einzelnen Bytes werden zu 
einem 16-bit Word aufaddiert. 





Bild 1: Bildung der Fuse-List-Prüfsumme 


werden. Hierzu werden der Kennbuch- 
staben F und die Ziffern 0 (Verbindung) 
oder 1 (Verbindung wird nicht herge- 


99 98 97 96 


stellt), gefolgt von einem Asterix, be- 
nutzt. Dies gibt dem Anwender die 
Möglichkeit, nicht alle Sicherungszu- 
stände in seiner Datei aufführen zu müs- 
sen. Genutzt wird dies dann, wenn man 
nicht alle Ausgänge eines GALs verwen- 
det, oder aber, wenn bei einem Ausgang 
nicht alle acht Zeilen benötigt werden. 
Die ungenutzten Zeilen braucht man so 
nicht in das JEDEC-File zu schreiben. 


Die eigentliche Fuse-Liste beginnt mit 
einem L und der Adresse der ersten Si- 
cherung, für die folgende, fortlaufende 
Reihe gilt. Hier könnnen nun die Zustän- 
de für alle Sicherungen stehen, oder aber 
man teilt die Liste in mehrere Teile auf 
(jeder muß jedoch mit * enden und der 
nächste mit L und einer Adresse anfan- 
gen). Teilt man die Liste so auf, daß in 
jeder Reihe 32 (bzw. 40 beim GAL 20v8) 
Zustände stehen und sich die nächste 
Reihe bündig darunter befindet, so läßt 
sich leicht ersehen, welche Verbindun- 
gen hergestellt werden sollen. Man 
nimmt dazu die Bilder 2 und 3 aus der 
letzten Folge und vergleicht die Logik- 
matrix mit den Nullen aus der Liste. An 
diesen Stellen wird eine Verbindung 
zwischen den Zeilen und Spalten herge- 
stellt. 


Der dritte Teil ist eine Prüfsumme. 

Diese wird gebildet indem man die 

Fuse-Liste, wie in Bild 1 zu sehen, in 

Bytes aufteilt und diese aufaddiert (das 

letzte Byte wird, sofern die Anzahl der 

Sicherungen nicht durch acht teilbar ist, 
mit Nullen aufgefüllt). Das Ergebnis 
wird als 16-bit Zahl hinter den 
Buchstaben € notiert. 
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Sicherungsfeld: Eine weitere Angabe 
bezieht sich auf die Security Cell. Soll 
diese gebrannt werden (Fuse-Matrix des 
GALSs ist danach nicht mehr auslesbar), 
schreibt man G0*, im anderen Fall G1*. 


Kommentarfeld: Es besteht auch die 
Möglichkeit, Kommentare innerhalb der 
JEDEC-Datei unterzubringen. Der Kenn- 
buchstabe hierfür ist N. 


Am Schluß der Datei kommt noch eine 
Prüfsumme. Sie wird von dem Steuerzei- 
chen <ETX> (Hex: 03) eingeleitet und ist 
eine 16-Bit-Summe aller ASCH-Zeichen 
des Files einschließlich der Steuerzeichen 
<STX> und <ETX>. Da manche Compu- 
ter jedoch am Ende jeder Zeile noch Zei- 
chen einfügen (Return...), wird in vielen 
Fällen an dieser Stelle statt der Prüfsum- 
me einfach nur 0000 geschrieben. Die 
Datei endet direkt hinter der Zahl; es folgt 
hier kein *! 


Nachdem nun klar ist, wie das JEDEC- 
Format aussieht, taucht natürlich die Fra- 
ge auf, welche Adresse die Sicherungen 
in den GALs haben. Die Adresse der 
Logikmatrix läßt sich sehreinfach anhand 
der Bilder 2 und 3 aus der letzten Ausgabe 
(S. 165 oben) errechnen. Man muß die 
Nummer des Produkt-Terms mal der 
Anzahlder Spalten des GALs (beim 16v8 
32, beim 20v8 40) nehmen und die Row- 
Adresse der Zeile, in der sich die Siche- 
rung befindet dazuaddieren. [An dieser 
Stelle sei auf eine Tatsache hingewiesen, 
die zu Unstimmigkeiten führen kann: In 
den Datenbüchern über GALs (auch bei 
Lattice) beginnen die Produkt-Terme 
beim GAL 20v8 bei acht. Da sich bei der 
von mir gewählten Numerierung jedoch 
die Adressen im JEDEC-File leichter er- 
rechnen lassen habe ich diese auch für den 
Artikel übernommen.] Die übrigen 
Adressen entnimmt man Bild 2. 


Fuse-Adressen für 
GAL 16v8 GAL_ 28v8 
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Logische Gatter im GAL 


Die Realisierung derlogischen Grundgat- 
ter mittels eines GALs ist in Bild 3 zu 
sehen. Das NOT ergibt sich durch die 
Aufteilung der Eingänge in einen norma- 
len und einen invertieren Eingang (3a). 
UND-verknüpft werden all die Eingänge, 
deren Sicherungen auf einer Zeile ge- 
brannt wurden (3b). Alle Zeilen, die den- 
selben Ausgangstreiber haben, werden 
untereinander ODER-verknüpft (3c). Die 
EXOR-Verknüpfung (exklusiv oder: der 
Ausgang wird nur dann Eins, wenn genau 
Einer der Eingänge eins ist) muß auf eine 
UND/ODER-Verknüpfung zurückge- 
führt werden (3d). 


rem Fall brauchen wir drei Eingänge und 
zwei Ausgänge. Da bei den Gleichungen 
maximal zwei ODER-Verknüpfungen 
vorkommen, benötigen wir Ausgänge, 
die mindestens zwei Zeilen verODERn. 
In diesem Fall haben wirbeim GAL (jeder 
Ausgang hat acht Eingangszeilen) keine 
Schwierigkeiten. Hätten wir jetzt eine 
Gleichung mit mehr als acht ODER-Ver- 
knüpfungen (nach der Vereinfachung), 
hätten wirmiteiner Rückführung arbeiten 
müssen. D.h. wir hätten einen Teil der 
Gleichung auf einem Ausgang realisie- 
ren, dieses Ergebnis auf den nächsten 
Ausgang zurückführen und dort die restli- 
che Gleichung implementieren müssen. 
Dadurch wäre natürlich ein Ausgang ver- 








Bild 4: Verknüpfungsnetz mit TTL-Logik und im GAL 


In Bild 4 ist die Übertragung eines logi- 
schen Verknüpfungsnetzes in ein GAL 
wiedergegeben. Zuerst werden anhand 
des Netzes die Logikgleichungen aufge- 


Funktionen (Bez. der Sicherungen) 





8998-2847 | 8880-2559 
2848-2055 | 2568-2567 
2856-2119 | 2568-2631 
2632-2639 
2648-2783 
2784 
27865 


2120-2127 
2128-2191 
2192 
2193 


Fuse-Matrix (Produktterme) 
XOR-Bits der Ausgangszellen 
Signatur (Versionsnr. 0.8.) 
AC1-Bits der Ausgangszellen 
Produktternfreigabe 

SYN-Bit der Ausgangszellen 
AC8-Bit der Ausgangszellen 





Bild 2: Adressen der GALs in der Fuse-Liste des JEDEC-Formats 


Bei den folgenden Beispielen werde ich 
jeweils nur die Fuse-Liste angeben [alle 
nicht aufgeführten Sicherungen werden 
gebrannt (0)]. 
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stellt. Nun (sofern man nicht einen Logik- 
Compiler zur Hand hat) werden diese 
vereinfacht, was bei diesem Beispiel ent- 
fällt. Der nächste Schritt ist zu Überlegen, 
wie man diese Gleichungen am günstig- 
sten in einem GAL unterbringt. In unse- 


lorengegangen [es sei denn, wir hätten das 
Ergebnis der Zwischengleichung benö- 
tigt; z.B. wenn eine Gleichung vollstän- 
dig in einer weiteren enthalten ist: A=X 
* YundB=(X * Y) + Z. In diesem Fall 
hätte man A auf einem Ausgang realisiert 
und das Ergebnis auf die Zeilen vom Aus- 
gang B zurückgeführt. Wobei es jedoch 
aus Geschwindigkeitsgründen auch sinn- 
voll sein kann, die gleichen Terme für 
jeden Ausgang neu zu realisieren, denn 
durch die Rückführung liegt am Ausgang 
B erst nach der doppelten Zeit wie am 
Ausgang A das richtige Signal an]. Jetzt 
müsen wir uns nur noch entscheiden, 
welche Ein- und Ausgänge wir am GAL 
belegen. Die Aufstellung der Fuse-Matrix 
ist bei diesem Beispiel sehr einfach. Sie 
wird anschließend in den Baustein ge- 
brannt, und wir haben unsere Logik im 
GAL. Sollte sich nun nachträglich an der 


Logik etwas ändern (z.B. ein ODER statt 
einem EXOR), ändern wir die entspre- 
chenden Stellen in der Fuse-Matrix und 
brennnen das GAL neu. Es muß nicht ein 
neues Layout für die Platine realisiert 
werden. 


Ein Zähler im GAL 


Bei unserem nächsten Beispiel wird die 
Sache schon um einiges schwieriger. Wir 
wollen einen 4-Bit-Zähler realisieren, der 
nur aufwärts zählt, einen Takt, einen 
Rücksetz- (clear) sowie einen Setzein- 
gang (preset) besitzt, mit dessen Hilfe 
man den Zähler auf einen bestimmten 
Anfangswert bringen kann (wird bei uns 
jedoch nicht verwendet, ist schmücken- 
des Beiwerk). 





Bild 5: So wird digital gezählt 


Zuerst stellen wir die Logikgleichungen 
auf. Dazu überlegen wir uns, was ein 
Zähler eigentlich macht. Richtig, er zählt. 
Aber wie? Bild 5 gibt darüber Auskunft. 
Dort sind alle mit 4 Bit darstellbaren 
Zahlen der Größe nach sortiert (von oben 
nach unten) aufgeführt. Diesen Zyklus 
soll das GAL an vier seiner Ausgänge (A, 
bis A,) wiedergeben, vorausgesetzt die 
Eingänge clear und preset sind beide in- 
aktiv (low). Mittels dieser Informationen 
können wir nun die Gleichungen für die 
vier Ausgänge aufstellen. Zuerst für A,. 
Der Ausgang wechselt jedesmal wenn ein 
Taktimpuls kommt, seinen Wert von O auf 
1 und umgekehrt. Da nun die von den 
Logikzeilen erzeugten Signale erst beim 
nächsten Taktimpuls übernommen wer- 
den (wir arbeiten mit Registern in den 
OLMGs), können wir den neuen Zustand 
erzeugen sowie der vorhergehende über- 
nommen wurde. Bei A, heißt dies, daß wir 
den Ausgang immer invertieren: 
A,=/A, 

Wenn clear gesetzt wird, muß der Aus- 
gang (wie alle anderen auch) auf O gesetzt 
werden (in unserem Fall erst beim näch- 
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sten Taktimpuls). Wir beachten dies, in- 
dem wir bei jedem UND-Term in unseren 
Gleichungen ein /clr schreiben: 


A, = /elr * /A, 


Das gleiche gilt für preset, nur muß hier 
der Fall, daß der Ausgang gesetzt werden 
soll [es liegt am entsprechenden Eingang 
(EO bis E3) eine 1], mitbeachtet werden. 
Bei uns ist das immer der letzte UND- 
Term jeder Gleichung. Dies ergibt für den 
ersten Ausgang die vollständige Logik- 
gleichung: 


A, = /elr* /ps * /A, 
+/cir*ps *E, 


0 


Der zweite Ausgang wird bei den Über- 
gängen O1 -> 10 und 10 -> 11 aktiv (1), so 
daß wir für diesen drei UND-Terme ver- 
ODERn müssen: 


A, = /cIr* /ps* /A,* A, 
+/elr* /ps* A, */A, 
+/elr*ps *E, 


Beim nächsten Ausgang sind es bereits 
vier Übergänge: O11 -> 100, 100 -> 101, 
101 -> 110 und 110 -> 111. Dies ergibt 
fünf VerODERungen: 


A, = /elr* /ps*/A,"A, "A, 
+ /elr * /ps* A, * /A, */A, (i) 
+/clr* /ps" A, */A,*A, (ii) 
+/elr*/ps*A, "A, */A, 
+/cir*ps *E, 


Der letzte Ausgang beschert uns mit sei- 
nen acht Übergängen (O1 11 -> 1000, 1000 
-> 1001, 1001 -> 1010, 1010 -> 1011, 
1011-> 1100, 1100->1101,1101->1110 
und 1110 -> 1111) neun UND-Terme: 


A, =/elr* /ps*/A,*A, "A, "A, 
+/eir* /ps* A, */A,* /A,*/A, (il) 
+/elr*/ps" A, "/A,*/A, "A, (ii) 
+/elr* /ps*A, */A,"A, */A, (ii) 
+/elr*/ps*"A, "/A,"A, "A, (ii) 
+/elr*/ps"A, *A, */A,"/A, (iv) 
+/elr*/ps*A, "A, "/A,"A, (iv) 
+/elr*/ps*A, "A, "A, "/A, 


+/eclr*ps *E 


en 


3 


Die Gleichung für den letzten Term berei- 
tetuns bei der Realisierung im 
GAL Schwierigkeiten, da 
man für jeden Ausgang nur 
acht ODER-Verknüpfungen 
hat. Zum Glück kann man 
sich bei diesem Beispiel je- 
doch mittels Vereinfachun- 
gen der Geichungen helfen. 
Könnte man das nichtmachen 
(z.B. bei einem 5-Bit-Zähler), 
müßte man einen weiteren 
Ausgang heranziehen und, 
wie oben bereits erwähnt, die 


Gleichungen auf die beiden Ausgänge 
verteilen und mit einer Rückführung ar- 
beiten. Bei unseren Zählern kann man 
jedoch sowohl bei A, als auch bei A, die 
Gleichungen vereinfachen. Schaut man 
sich die Gleichungen von A, näher an, 
sieht man, daß sich die beiden UND- 
Terme vor der (i) nur minimal unterschei- 
den. Sie sind bis auf den Teil mit A, 
identisch. Da dies jedoch heißt, daß so- 
wohl dann, wenn A, gesetzt ist, als auch, 
wenn der Ausgang nicht gesetzt ist, diese 
UND-Bedingung erfüllt werden soll, 
kann man die beiden Zeilen zusammen- 
fassen, indem man den A,-Teil wegläßt. 
Dies gibt eine Ersparnis von einem 
ODER: 


A, =/elr* Ips"/A,"A, *A, 

+ /cIr* /ps "A, */A, () 

+/elr* /ps*A, "A, */A, 

+/eir*ps *E, 
Beim letzten Ausgang ist die Ersparnis 
sogar noch größer. Man kann nach dersel- 
ben Methode wie oben die Zeilen bei (ii), 
(iii) und (iv) zusammmenfassen. Des 
weiteren kann man danach noch einmal 
die Zeilen, welche man bei (ii) und (iii) 
erhalten hat, zusammenfassen, wobei 
dort Al wegfällt. Sohatman am Ende vier 
ODER-Verknüpfungen gespart und kann 
die Gleichung mit einem Ausgang reali- 
sieren: 


A, = /elr*/ps*/A,*A, *A, "A, 
+ /elr * /ps* A, */A, (ii & ii) 
+/elr*/ps*A, "A, */A, (iv) 
+/eir*/ps*A,*A, *A, */A, 
+/ecir*ps *E 


3 
3 


Zusätzlich soll nun unser Zähler beim 
Erreichen der Zahl 11 (1011) wieder von 
O an anfangen. Dies ergibt als letzte Glei- 
chung für clear (wobei clear_out der von 
außen kommende clear-Eingang sei): 


cir = clear_out 
+A,r/A,"A, TA, 


In Bild 6 ist die Realisierung mittels TTL- 
Bausteinen wiedergegeben. Man braucht 





eik 1 
eir a4 
preset A 1 








Bild 6: Der 4-Bit-Zähler in TTL 
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einen Zähler, einen Inverter und ein der 
UND. Der innerhalb der gestrichelten 
Linien befindliche Bereich ist nun die 
Logik, die wir in unser GAL brennen 
(Fuse-Liste siehe Bild 7). Man erkennt 
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derder 





ähler wieder von vorne anfangen 


soll, braucht man nur das GAL neu zu 
programmieren, bei der TTL-Lösung 
bräuchte man für die Rückführung zum 
clear-Eingang eine neue Logik samt Ver- 


stes haben wir uns zu fragen, welche 
Zustände es gibt. Klar, wie bei jeder 
Ampel: rot, rot-gelb, grün, gelb und wie- 
der rot, wobei der letzte Zustand schon 
wieder der erste ist. Wir haben also vier 


auch hier: Bei Änderungen der Zahl, ab 


drahtung. 


Zustände. Zur Ansteuerung der einzelnen 
Ampellampen sehen wir jeweils einen 
Ausgang vor (rot, gelb und grün). Des 
weiteren numerieren wir die Ampelpha- 
sen von 0 bis 3 (binär) durch, wobei wir 
bei irgendeinem Zustand (hier: Ampel 


Ein GAL 
als Ampel? 


Als letztes Beispiel 
etwas zum Thema 










<STx> 
Beispiel: 4-bit Zaehler im GAL 16v8 
Die Ausgaenge haben Register. 






























































Pinbelegung: Zustandsautoma- rot) beginnen. Wir erhalten dann folgen- 
ten. Wir wollen ein de Tabelle , die zyklisch (d.h. immerfort) 
Eingaenge:; Ausgaenge: P 
1: Takt 19: interne Erzeugung von clear GAL zur Steuerung durchlaufen wird. 
2 0ledp 18: A3 einer Verkehrsam- 
3: preset 17: a2 lei wi 
ic 16: AL pel einsetzen. Wir 
5: E2 15: AO gehen davon aus, Zustands- Ampelfarben 
Sn daß der Takt zum en See run 
a Wechseln d ce) 8 o e 
echseln der Am- ca) 1 8 
DRREIRESAnEgerGS pelphasen von au- c2) 1 (} 1 
P . (3) 1 3: L:] 
Die Belegung der Spalten (Achtung: die Rueck- ßen (von einer Zeit- 
fuehrungen der Ausgaenge von den Registern geberschaltung) ge- y 9 


erfolgt invers!): 
cocl psa3 e3a2 e2al ela0 e0ü-- ---- ---- * 

L0000 0111 1110 1101 1110 1110 1111 1111 1111 
0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000* 


geben wird. Als er- 


<STX> 

Beispiel: Ampelsteuerung im GAL 16v8 
Die Ausgaenge haben Register. 
Pinbelegung: 


Eingaenge: Ausgaenge: 
1: Takt 19: zı 
18: z0 
17:2 
Y 
15: g* 


N In den nichtbenutzen Zeilen werden alle 
Sicherungen gebrannt, da diese dann nicht 
beim ODER stoeren. 


Ausgang A3:* 
L0256 1101 1001 1110 1110 1110 1111 1111 1111 Enstanävariable z3 
1101 1010 1101 1111 1111 1111 1111 1111 
1101 1010 1110 1101 1111 1111 1111 1111 
1101 1010 1110 1110 1101 1111 1111 1111 
1101 O111 O11ı1 1111 1111 1111 1111 ı1111* 


Die Belegung der Spalten (Achtung: die Rueck- 

£fuehrungen der Ausgaenge von den Registern 
erfolgt invers! 
-—z1 -—-z0 - 
LO000 1101 1110 1111 1111 1111 
1110 1101 1111 1111 1111 








ı111 1111 
ı111 1111* 


N Ab hier lasse ich die restlichen Zeilen die 
nur gebrannte Sicherungen enthalten weg 


Ausgang A2:* N Zustandvariable z0* 


LO256 1111 1101 1111 1111 ı111* 


10512 1101 1011 1101 1110 1110 ı111 1111 1111 
1101 1011 1110 1101 1111 1111 1111 1111 
1101 1011 1110 1110 1101 1111 1111 1111 
1101 0111 1111 0111 1111 1111 1111 1111* 


N Ampelfarbe rot:* 


L0512 1101 1101 1111 
N Ausgang Al:* 1101 1110 1111 
10768 1101 1011 1111 1101 1110 1111 1111 1111 N: Anal farbe, geih:* 
1101 1011 1111 1110 1101 1111 1111 1111 


1101 0111 1111 1111 0111 1111 1111 1111* 10768 1101 1110 1111 


1110 1110 1111 


ı111 
1111* 


N Ausgang A0:* 


N Ampelfarbe gruen:* 


L1024 1101 1011 1111 1111 1101 1111 1111 1111 


1101 0111 1111 1111 1111 0111 1111 1111* SIO2R I1 TO ALOT EEE 


1111* 


N ACW:* N ACW:* 

12048 11111111 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000 
11111111111111111111111111111111 
11111111111111111111111111111111 
0 


12048 11111111 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000 
11111111111111111111111111111111 
11111111111111111111111111111111 





0 
ı1* 1* 
<ETX>0000 <ETX>0000 





Bild 7: Fuse-Liste des 4-Bit-Zählers 
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Bild 8: Ein GAL als Ampelsteuerung 


Nun werden die Gleichungen für die bei- 
den Zustandsvariablen aufgestellt [in 
diesem Fall, da keinerlei Einwirkungen 
von außen auf den Zyklus erfolgen kön- 
nen, hat man einen 2-Bit-Zähler. Wenn 
Einflüsse da sind, müssen die entspre- 
chenden Eingänge bei der Aufstellung der 
Gleichungen berücksichtigt werden (sie- 
he Beispiel im Handbuch zum GAL-Pro- 
mmer)]: 


z, =/2, 


z, =j2, 2, 
+Z *lz, 
Die Gleichungen für die Ausgänge dürfen 
nur von den Zustandsvariablen abhängen. 
In unserem Fall ergibt sich: 


PROJEKT 


r=/z,*/z, 
+/2,"2, 
y=lz,'z, 
+2, 'Z, 
g=2, "/z, 


Die Realisierung dieser Gleichungen im 
GAL (an zwei Ausgängen erzeugt man 
die Werte, die Zustandsvariablen und 
koppelt diese zurück) ist im Bild 8 zu 
sehen. 


Die Beispiele in dieser Folge sollten eini- 
ge Möglichkeiten aufzeigen, was man mit 
GALs alles machen kann. Sicherlich 
konnten es nur Stichproben sein. Am 
besten ist, man stellt selbst Versuche mit 


diesen Bausteinen an. Zu diesem Zweck 
folgt in der nächsten Folge das Selbstbau- 
projekt für einen GAL-Prommer. Auch 
werde ich dort das Thema Emulation von 
PALs durch GALs, das ich ja bereits für 
diese Folge angekündigt hatte, nachho- 
len. 


Thomas Werner 
Literatur: 


Lattice: GAL Handbook 

me 1/88: 

Programmierbare Logikbausteine 

elrad 5/89: 

Die Logik durchgebrannter Sicherungen 
JEDEC FORMAT, Datenbuch 
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998.- 
1148.- 


Dieses mit 200 DPI arbeitende Bilderfassungsgerät ist die ideale Ar- 
beitshilfe für alle Anwender, die über Geräte mit einem Mega-Speicher 
verfügen (1040, ein Mega, oder aufgerüstete Einheiten). Durch ratio- 
nellste Produktionsmethoden und günstigen Einkauf des Thermo-Kopie- 
rers ist uns nochmals eine Preissenkung für dieses Gerät gelungen. 


Neuer Superpreis: 


zzgl. OCR-Schrifterkennung 
Univ. Scanner, Drucker, Kopierer 


Alle Formate möglich / Calamus compatibel. 
Ein absoluter Preishit für jeden ATARI-Nurzer. 


Professional Scanner 2998 .” 
zer 


mit OCR-Junior inkl. Ganzseitenmalprogramm ROGER PAINT OCR 
Junior selbstlernende Schrifterkennung PEGASUS + ST 1 Raster Vek- 
tor Konvertierungsprogramm 

300 x 300, 300 x 600, 600 x 600 DPI-Auflösung und 64 Graustufen, 
einschl. Zeichenprogramm und OCR-Schrifterkennung. 

Diese Scannerneuheit für den Industrie- und DTP-Bereich stellt einen 
absoluten Preishit dar. Mit ihm lassen sich sowohl Halbton als auch 
binäre Vorlagen scannen und ablegen und mit allen auf dem Markt 
befindlichen Programmen (auch Calamus) weiterverarbeiten. 

Das mitgelieferte Schrifterkennungsprogramm erlaubt das Umsetzen 
von Text in ASCII-Zeichensatz und ist durch seine Lernfähigkeit von 
hoher Effektivität. 





Videodigitizer PRO 8900 für ATARI 

Der Videodigitizer PRO 8805 liefert die höchste Auflösung, die bei Ver- 
wendung einer normalen Videokamera möglich ist: 1024 Punkte in 512 
Zeilen. Gleichzeitig digitalisiert er mit einer Genauigkeit von 7 Bit, was 
einer Anzahl von 128 Graustufen entspricht. Technische Daten des PRO 
8805: Bildformate: Neochrome, IMG, Doodle, Spat. Ausdruck auf: NEC 
P6/P7, ATARI Laser. Auflösung: 320 x 200, 640 x 200, 640 x 400, 512 
x 512, 1024 x 512. Graustufen: 128 (7 Bit). Anschluß: ROM-Port des 
ATARI ST. Eingangssignal: BAS oder FBAS. S/W und Farbmonitor. 


Preis: DM 498,- 


Neue Colorsoft von Imagic ‚ 
Preis: DM_98,- 


16 Farben aus 4096/Zusatzsoft zum PRO 8900 
PRO 8900 mit RGB-Filter + Imagic Soft. 
Der »Farb«-Digitizer 

Realtizer für ATARIST 

Der REALTIZER ist ein in den ROM-Port einsteckbares Modul zur 
rasanten Digitalisierung von Videobändern aller Art. Die Auflösung 
beträgt 320 x 200 Punkte, wobei der Farb- und Monochrome-Modus (640 
x 400) des ATARIST unterstützt wird. Die Auflösung: 16 Graustufen. Pro 
Graustufe beträgt die Digitalisierungszeit 1/25 Sekunde. 


‚Automatische Helligkeits- und Kontrastregelung. Preis: DM 198,- 


DM 748,- 


PRODUCTION - IMPORT — 


OCR-Junior Schrifterkennung 

Selbstlernende Schrifterkennung zu Universalscanner für ATARI ST. 
Preis: DM _198,- 

Romportstecker 

Freier Druckerport beim Universalscanner. Ermöglicht Sofortausdruck 

z.B. mit NEC P6/P7. Preis: DM 148,- 


RGB Splitter 

Der RGB-Splitter zerlegt jedes Farb-Videosignal in seine Grundfarben 
Rot, Grün und Blau. Mittels Drehschalter kann jede Grundfarbe und 
Schwarz/Weiß an einen Videoausgang geschaltet werden. Passend für alle 
Videodigitizer mit Farbdigitalisierungssoftware (z. B. PRO 8805). 
Noch nie erreichte Farbbildqualität. Preis: DM 248,- 


Videotext Dekoder 

Zum Anschluß an den ROM-Port. Kann mit jedem Videosignal 
betrieben werden. Läuft auf Farb- oder S/W-Monitor. Seitenweises Auf- 
rufen — Automatisches Blättern — Seiten halten— Speichern und Laden 
der empfangenen Seiten im Text- oder Bildformat — Textausdruck- 
möglichkeiten über beliebige Drucker. Preis: DM 248,- 


EXPORT - DISTRIBUTION 


VISA/Eurocard Accepted Austria: Print-Technik-Wien 0043-222-5973423 
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Volker Ritzhaupt 
Das Atari-ST 1x1 


Ein Leitfaden für Anfänger 
und Fortgeschrittene 


Heidelberg 1989, 
Application Systems 
320 Seiten 

DM 49,- 

ISBN 3-9801834-3-2 


itzhaupt will mit seinem 

Buch “mehr sagen, als die 
Bedienungsanleitung hergibt”, 
wendet sich also an den Anfän- 
ger, der die ersten Schritte mit 
seinem ST machen will. Dem- 
entsprechend beschäftigt sich 
der erste größere Teil des 
Buchs mit dem Desktop, Fen- 
stern und Mausfunktionen. Es 
geht weiter mit einer ausführli- 
chen Einführung in die grund- 
legenden Funktionen wie Da- 
teien kopieren, löschen und 
umbenennen sowie Formatie- 
ren. 


Je ein spezielles Kapitel haben 
die Fileselectbox und die In- 
stallation und Benutzung der 
Festplatte erhalten. Die von 
ATARI mitgelieferten Sy- 
stemprogramme, wie das Con- 
trol-Accessory, werden an- 
schließend beschrieben, wor- 
auf der erste Teil des Buches 
mit einigen kleinen Tips zur 
ST-Benutzung endet. 

Diese cirka 200 Seiten können 
sehr gut die Original-Anlei- 
tung ersetzen. Sie sind für den 
Anfänger geschrieben, gehen 
aufmögliche Fehlerquellen ein 
und leiten den Anfänger durch 
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BÜCHER 





© ausgiebige Bebilderung mit 
Bildschirmausschnitten sorg- 
fältig durch die ersten Stunden 
mit dem ST. 

Unterstützt wird der Text 
durch Symbole am Rand, die 
z.B. darauf hinweisen, daß hier 
ein warnender Hinweis oder 
eine Tastatureingabe zu finden 
sind. Die Systematik der Sym- 
bole leidetetwas durch zu viele 
verschiedene Sinnbilder. die 
zu oft eingesetzt werden. 

Im zweiten Teil gibt Ritzhaupt 
Empfehlungen für den Kauf 
von Anwenderprogrammen 
und will das vorhandene Ange- 
bot durch Empfehlungen für 
die verschiedenen Bereiche 
dem Einsteiger näherbringen. 
Der Anwender wird aufgeklärt 
über den Kauf von Program- 
men und den Support, der per 
Registrierungen geboten wird. 
Schließlich fehlt auch nicht die 
Anmahnung, Raubkopien 
nicht zu benutzen. 


Die Auswahl der Anwender- 
software kann leider keine 
konkrete Hilfestellung bieten, 
dafür sind die Beschreibungen 
zu kurz und die Auswahl zu 
unvollständig. Auch kann 
nicht verleugnet werden, daß 
sich die Produktpalette von 
Application Systems fast kom- 
plett wiederfindet und be- 
stimmte wichtige Konkurrenz- 
produkte nicht zu finden sind. 
Dieser cirka 30 Seiten starke 
Teil kann also keineswegs die 
Informationen aus Fachzeit- 
schriften ersetzen und wird 
auch in absehbarer Zeit deut- 
lich an Aktualität verloren 
haben. 


Die restlichen 70 Seiten dienen 
als Nachschlageteil mit Glos- 
sar und Register. Im Glossar 
werden cirka 160 Begriffe in 
wechselndem Umfang darge- 
stellt. Die Schlagworte reichen 
von Absturz bis Zugriffspfad 
und stellen eine annehmbare 
Auswahl dar, auch wenn sie 
lange nicht vollständig sind. 
Einige Bereiche sind inkonse- 
quent abgedeckt, so erscheint 
zwar die eher unübliche Ab- 
kürzung “PCL” für die Seiten- 
beschreibungssprache von 
HP-Laserjet-Laserdruckern, 
“PostScript” wird jedoch nicht 
genannt. 


Die Kurzerläuterungen enthal- 
ten das wesentliche zu einem 
Begriff und sollten dem Ein- 
steiger ein gutes Grundwissen 
bereitstellen. Das Register ist 
mit acht Seiten umfangreich 
und brauchbar geraten. 





Manchmal fallen im Buchtext 
Ungenauigkeiten auf: An einer 
Stelle ist eine Festplatte “um 
ein Vielfaches empfindlicher 
als eine Diskette”, an einer 
anderen steht, daß “Festplatten 
ja zuverlässiger speichern als 
Disketten”. Einige Passagen 
sind recht inhaltsleer ten 








so die Bitte, Briefe an Soft- 
ware-Häuser nicht zu “verna- 
geln” oder die drei Seiten einer 
Auswahl von Public Domain- 
Programmen, deren Beschrei- 
bungen z.B. nicht über “diver- 
se Hardcopyroutinen” hinaus- 
gehen. 


Sprachlich ist das Buch in ei- 
nem lockeren Umgangston 
gehalten und versucht sich von 
einer rein technischen Anlei- 
tung abzuheben. Insgesamt ist 
der Stil gelungen, schwankt 
allerdings an einigen Stellen 
doch zu sehr zwischen augen- 
zwinkerndem Witz, flapsigen 
Einlagen und freundlichem, 
leichtverständlichem Stil für 
den Einsteiger, der lernen will. 
Eine Stilblüte soll an dieser 
Stelle nicht verschwiegen wer- 
den; sie ist aber keineswegs 
typisch: “Klicken Sie keines- 


falls auf OK, wenn die Mel- 


dung nicht lautet: von A: auf 
B:. Sonst kopieren Sie die leere 
aufdie volle Diskette (das wäre 
schade).” 


Aber dennoch: “Das Atari-ST 
Ix1” istein Buch, das sich her- 
vorragend für den Anfänger 
eignet, der ohne größere Com- 
puter-Kenntnisse vor seinem 
neuen ST sitzt. Mit der Einfüh- 
rung in die Desktop-Benut- 
zung werden die Defizite des 
Original-Handbüchleins aus- 
geglichen, und mit dem Nach- 
schlageteil sind wichtige Infor- 
mationen einfach abzurufen. 
Eigentlich ein typisches Ge- 
schenkbuch, dem erfüllten Ge- 
burtstagswunsch beizulegen. 


RT 
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! Bitte senden Sie mir: 





{0 Kostenlose Info zu PegaFAKT, dem Fakturierungs- i 

! programm mit Lager- und Adressenverwaltung A 
ATARI ST's, das nur 99,- DM kostet. 

{  Ujetzt Version 2.0 mit vielen neuen Funktionen ! )i 

!O Die PegaFAKT-DEMO-Diskette für nur 20,- DM! 

! {wird beim Programmkauf zurückerstattet) 

}0 Kostenlose Info zu PegaSTIC, dem universellen ! 

| Etikettendruckprogramm für alle ATARI ST's, das ! 

H nur 49,- DM kostet. } 

!/ Kostenlose Liste mit COMPUTERZUBEHÖR und ; 
PROGRAMMEN zu DISCOUNT-PREISEN für: } 


© C16/64/128 
O ATARI XL/XE 





O AMIGA 


ocpc 
O ATARI ST 


o Pc 


! Einfach auf Postkarte kleben, den Absender nicht ver- ! 
! gessen und ab die Post an: ! 


Pogaloft R. GARTIG 


SOFTWARE-ENTWICKLUNG & -VERTRIEB R 
Ringstr.4 7450 Hechingen-Beuren T. 07477/8158 | 








MODEME 


Kennzeichen: 

An alle ATARI Rechner problemlos 
anschließbar 

— Hayes-kompatibel 


Anschluß: 


Über RS-232 Schnittstelle/serielles 
Kabel 


Lieferumfang: 

Einheit, Modembox, modulares US- 
Telefonkabel, 220V-Netzteil, 
Handbuch 


A. TAILYN 1200, extern 


0-300/1200 bps für asynchrone Kom- 
munikation (BTX mit 1200/1200 bps) 
CCITT V.21, V.22, BELL 103/212A — 
kompatibel Voll- oder Halbduplex; 
8 LED Kontrollanzeigen, eingebauter 
Lautsprecher, Hayes-AT-Befehlssatz, 
automatisches Wählen und Antworten 


ou 199,- 





IE 


B. DISCOVERY 1200CK, extern 
0-300/1200 bps; sonst wie Tailyn 


120 ou 249,- 
€. LIGHTSPEED 3400, extern. 

1200/2400 bps; asynchron/synchron 
CCITT V.22, V.22bis, BELL 103/212A 
Automatische Wahl der Übertragungs- 
geschwindigkeit, wählt und antwortet 
automatisch; automat. Anruferken- 
nung, 8 LED-Kontrollanzeigen, ein- 
gebauter Lautsprecher, erweiterter 
AT-Hayes Befehlssatz, Telefonnum- 
mern-Speicher, Speicherung des 
Konfigurationsprofiles im nichtflüchti- 


gen Speicher 389,- 


D. LIGHTSPEED 2400C, extern 


300/1200/1200-75/2400 bp: 
synchr./asynchr., CCITT V.21, V.22, 
V.22bis, V23 

sonst wie LIGHTSPEED 2400 


DM 


E. SMARTLINK 24008, extern 


0-300/1200/2400 bps; asynchron/syn- 
chron CCITT V.21, V.22, V.22bis, 
BELL 103/212A - sonst wie Light- 


speed 2400 — DM 399,- 


F. SMARTLINK 2400M, 
MNP Klasse 1-5 


1200/2400 bps, asynchron/synchron, 
CCITT V.22, V.22bis, BELL 103/212A, 
MNP Klasse 1-5 Datenkompres- 
sionsprotokoll mit Fehlerkorrektur, 
Voice/Data Umschaltung 

- sonst wie Lightspeed 2400 — 


ou 749,- 
RS 232 C serielles Kabel für ATARI 


on 14,90 


14 Tage Rückgaberecht 
Gewährleistung 1 Jahr 
Alle Angebote freibleibend. 
Lieferung ab Lager Hamburg. 


Hinweis: Der Anschluß der Modeme 
an das öffentliche Postnetz ist verbo- 
ten und unter Strafe gestellt. 


Gleich bestellen (a. telefonisch) oder 
Info-Material anfordern! 








CompuScience 


Computerhandels GmbH 
Steinwegpassage 5 - 2000 Hamburg 36 
Tel. (040) 353941 - Fax (040) 353945 





Wenn 

es um 
Beratung, g 
Service und 
gute Preise 
für Sie geht: 


































z.B. Software 


PHONE DM 79, 


Die bequeme Adressverwaltung um 
ständig auf dem laufenden zu sein 


\ - als Accessory jederzeit aufrufbar 
schnell durch ausgereifte Programmier- 
technik 

- Datenaustausch mit anderen Program- 
men 

- minimaler Speicherplatz 


ST-DCL DM 298,- 
Kommandopzeileninterpreter+ Tools 


ST-DCL erlaubt es, auf einem Atari unter 
einer Kommandoumgebung zu arbeiten 
die der VAX /VMS-Digital Command 
Language (DCL) nachempfunden ist. Auch 
für MS-DOS lieferbar. 


PRIVAT-LIQUIDATION 
PRAXIS-BUCHHALTUNG 
je DM 375,- 
| Arzt - Software 


Aus der Praxis für die Praxis. Praxisliquida- 
tion und Praxisbuchhaltung. Info anfordern 
Demo plus Handbuch für DM 40,-. (Wird 
bei Kauf angerechnet) 











| Sämtliche PD- und Standard-Software 
lieferbar: Application Systems, C.A.$.H., 
CCD, DMC, Drews EDV+BTX, G Data. 
GFA, Hagera, Hyper-Soft, Kniss-Soft 
Kieckbusch, NovoPlan, Technobox u.v.m 


z.B. Hardware 


vortex HD plus 20 DM 998,- 
vortex HD plus 30 DM 1198,- 
vortex HD plus 60 DM 1798,- 
starLC 10 DM 598,- 
NEC P6 plus DM 1698,- 


Wir sind ATARI-Systemhändler. 


‚Alle Drucker mit deutschem Handbuch und 
Kabel. Sämtliche Hardware für Atari-Com- 
puter lieferbar. Alle Angebote freibleibend. 


MAUSO ST DM 128,- 


Die Mäuse sind los 


RS 232 Maus für Atari lieferbar. Die alter- 
native Maus. Inclusive Software. 


Hardware 
Software 
Service 


| LOGIN 
U | 
| Bemniieflhdetenensrsehe mbH 
Kölner Str. 132 - 5210 Troisdorf 
‚ Telefon (0 22 41) 7 18 97/98 





DER ETWAS 


ANDERE 


VERSAND! 


24-Stunden-Service! 


Wir garantieren, das jede Bestellung spätestens 24 Stunden nach Eingang unser 
Haus verläßt, sofern verfügbar. Auf alle gekauften Artikel erhalten Sie natürlich 
volle Garantie. Wir führen jede verfügbare Hard- und Software für den Atari ST, 
sowie alle Bücher. Hier ein kleiner Auszug aus unserem reichhaltigen Programm: 


SPIELESOFTWARE: 
Afterburner 
Archipelagos 
Balance of Power 1990 
Barbarian Il (Palace) 
Battletech 

Bio Challenge 

Bolo Werkstatt 
Buffalo Bill’s Rodeo 
Daley Thompson 
Das Reich Anno 1871 
Dschungelbuch 
Dungeon Master 
Elite 

Espionage 

Eye 


y 

F-16 Falcon 

F-16 Mission Disk 1 

Fish 

Flight Simulator il deutsch 

jede Scenery Disc dazu 
OFT. 


Fugger 

Gauntlet II 

Grand Monstersiam 
Growth 

Hacker 

Hostages 

Jet 

Joan of Arc 

Kaiser 

Kick off 

Kult 

Leaderboard Birdie 
Legend of Djel 
Leisure Suit Larry 
Leisure Suit Larry II 
Leonardo 

Licence to Kill 
Lombard RAC Rallye 
Mega Pack Compilation 
Millenium 

Minigolf 

Öl Imperium 
Operation Neptun 
Pacmania 

Paper Boy 

Pirates 

Populous 

Populous Scenery Disk | 
Powerdrome 

Psion Chess 
Purple Saturn Day 
Reisende im Wind Il 
RVF Honda 

Skrull 

Space Quest Ill 
Speedball 

Star Trek 

Starglider II 

Star Wars Trilogie 
Superman 
Technocop 

Time Scanner 

Time of Lore 
Thunderblade 
Trivial Pursuit 
Ultima IV 
Vectorball 

Virus 

Volleyball Simulator 
Wallstreet Wizard 
Wallstreet Wizard Editor 
Waterloo 

Zack Mc Kracken 


45, 
80,- 
75,- 
60,- 
80,- 


ANWENDERSOFTWARE: 
Adimens 2.3 


a 195, 
Aladin Macintosh Enhancer 595.- 
85,- 


‚Anti Virus Kit . 


Arabesque 


275.- 


Beckercad-Studentenversion 195,- 


BS-Fibu 
BS-Handel 
BSS-Plus Module 


auf Anfrage 
385,- 


490,- 


BTX-Manager 3.02 5, 
CAD 3D Cyber Studio 175. 
CAD 3D Cyber Control 90, 
Convert 95,- 
Copy Star 3.0 160,- 
CADja 695,- 
Disk Royal 85,- 
Epsimenu 85,- 
Fibu Man ab 395,- 
GFA-Chemgraf 75, 
GFA-Draft plus 40,- 


Systembibliotheken dazu je 145,- 


Headline Signum Utility 95,- 
Hotwire 75, 
IPA Degenis Ill 165,- 
Logistix 390,- 
LDW-Power Calc 245,- 
Monostar/Plus 35, 
Multidesk 75,- 
Neo Desk 85.- 
Omikron Compiler 175,- 
PC-Ditto 150, 
Redakteur 145, 
Retouche 395, 
Revolver 125, 
Spectre ab 495,- 
ST Pascal plus 240.- 
Spectrum 512 140;- 
Star-Writer Lasertreiber 90, 
Steuer Tax 'B8 90; 
Superbase Professional... 590,- 
Tempus 2.0 120.- 
Tim II Fibu 590,- 
Timeworks Publisher 230,- 
Turbo C ab 225,- 
Turbo ST 75 
Wordstar 190,- [2 
1st Proportional 115.- 
ist Adress 3. 
ZUBEHÖR: 


Staubschutzhauben Kunstleder für 
25,- 


ATARI SM 124 

ATARI 1040 o. Mega Tast. 
ATARI 260/520 ST 

Mega ST Set Monit. + Tast. 


‚e 1e> H 


5 


andere Monitore + Drucker a. A 


Mausmatte 

Media Box 3,5" f. 150 Disk 

Monitorumsch. ohne Reset 

Marconi Trackball 

Handy Scanner inc. Texterk. 

NECP6 + 

PC-Speed 

SPAT Flachbettscanner 

ATARI Megafile 30 

Vortex HD 60 . 

3,5" NO NAME MF2DD 

3,5" BOEDER 2DD farbig 

PUBLIC DOMAIN: 

Wir haben über 2.000 Prog. 

auf über 300 Disketten. Nı 
ing wie in ST-Computer- 

Außerdem über 10.000 # 

auf 2.000 Disketten au. 

JEDE DISKETTE 

Auch Neuheiten AB 


Unseren Gesamtkatalog erhalten Sie kostenlos. 
Lieferung per NN zzgl. 7,- DM Versandkosten. Bei W 
3,- DM Versandkosten, ab 100,- DM Bestellwert versar 
Auslandsversand grundsätzlich zzgl. 15,- DM Versand 





Postanschri 
Ladengesch 





... der etwas andere Versand 
ATARI-Fachmarkt : MS-DOS Fachmarkt - 


Rund um die Uhr: 


Katzbachstraße 8 - 
Katzbachstraße 6+8 - D-1000 Berlin 61 


Fax: 030/786 19 04 » 


18,- 
s 40. 
ab 50,- 
190 
450. 
= 





















595, 

gar 
100 
17 


F- 


NEC-Fachhandel 


030/786 11096 


D-1000 Berli 


n 61 


Händleranfragen erwünscht 


LESERBRIEFE 





Ein Wort in eigener Sache 


Inden Jahren, die unsere Zeitschrift existiert, haben wir immer wieder versucht, durch die Be- 
antwortung der bei uns eingehenden Briefe ein wenig Licht in das Dunkel zu bringen, das bei 
der Arbeit mit dem ATARI ST schon so manch einen aus der Fassung bringen konnte - eine 
Tatsache, die nicht nur Ihnen, verehrter Leser, sondern auch uns oft genug zu schaffen 
machte. Nichtsdestotrotz haben wir uns bemüht, die Probleme zu lösen und diverse 
Leserbriefe zu veröffentlichen, da wir der Meinung waren, daß die jeweilige Thematik auch 
einen größeren Leserkreis interessieren könnte. Trotzdem gibt es immer wieder Briefe, die 
wir nicht beantworten können oder dürfen. Damit Sie nicht allzusehr enttäuscht zu sein 
brauchen oder keine Antwort erhalten, möchten wir Sie bitten, sich an folgende Spielregeln 
zu halten, die sich aus unserer Erfahrung ergeben haben, Fällt Ihr Brief nicht unter die 
folgenden Kriterien, hat er gute Chancen, positiv beantwortet oder wenigstens als Hilferuf an 
unsere Leserschaft gedruckt zu werden. 


1. Leider gehen immer wieder Briefe mit dem Wunsch ein, ein Produkt für diesen oder jenen 
Anwendungsfall vorzuschlagen, verschiedene Produkte bezüglich der Vor- und Nachteile ge- 
‚geneinander abzuwägen und zu bewerten. Es ist uns aus Wettbewerbsgründen nicht erlaubt, 
ein bestimmtes Produkt zu favorisieren, selbst wenn wir das eine oder andere in der Redak- 
tion überzeugt einsetzen. Wir können Sie in diesem Fall ausschließlich auf die von uns 
möglichst objektiven Tests und eventuellanstehende Fachmessen hinweisen. Bedenken Sie 
bitte, daß auch wir nicht |ede Textverarbeitung, jedes Malprogramm und so weiter kennen und 
bestimmte Produkte dadurch in das Abseits drängen würden 


2. Oft erreichen uns Briefe, die sich positiv oder auch negativ über bestimmte Händler, Soft- 
warehäuser oder deren Produkte auslassen. Sicherlich interessieren uns solche Bemerkun- 
gen. Bitte haben Sie aber Verständnis, daß wir weder Lob noch Tadel abdrucken dürfen, da 
diese Aussagen meist subjektiv sind. Anders sieht die Sache beispielsweise bei Gerichtsur- 
teilen aus, die Sie, verehrte(r) Leser(in), erfochten haben. 


3. Aufgrund der Vielzahl an Briefen, die uns täglich erreichen, sind wirleider nichtinder Lage, 
Programmfehler anhand von Listings oder ähnlichem zu korrigieren. Dennoch sollte ein 
Problem möglichst detailliert beschrieben sein, denn Ferndiagnosen sind prinzipiell sehr 
schwer, Jedoch mit genauerer Angabe der Symptome eventuell durchführbar. 


4. Von Zeit zu Zeit erreichen uns Briefe mit der Bitte, die Adresse des Lesers zwecks 
allgemeiner Kontaktaufnahme zu veröffentlichen. Würden wir dies indie Tatumsetzen, würde 
sich der Umfang des anderen redaktionellen Teils beträchtlich verkleinern. Ausnahmen stel- 
len Leserin fernen Ländern dar, für die eine Kontaktaufnahme im eigenen Land rechtsschierig 
ist. 


Zum Schluß sollen ein paar Tips eventuell voreilig geschriebene’Briefe verhindern. 


1. Wenn Sie ein Problem bezüglich einer bestimmten Problematik haben oder an einem 
bestimmten Produkt interessiert sind, finden Sie interessante Artikel darüber eventuell in 
vorhergehenden Ausgaben userer Zeitschrift. Zur Auswahl eignetssich das Jahresinhaltsver- 
zeichnis besonders gut, das immer am Jahresende in der ST Computer abgedruckt wird, 


2. Sollten die Probleme mit der Handhabung eines Produktes zu tun haben, wenden Sie sich 
zunächst an Ihren Händler und über diesen an den Distributor beziehungsweise an das 
Software-Haus. Die Wahrscheinlichkeit, daß Ihnen das Software-Haus weiterhelfen kann, ist 
um ein Vielfaches höher als die, daß wir Ihnen helfen können. 


3. Lesen Sie aufmerksam die Leserbrief-Seite. Viele Fragen wiederholen sich immer wieder, 
obwohl wir bestimmte Probleme schon mehrfach angesprochen haben. 
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Resource-Laden bei 
LovelyHelper 


Als stolzer Besitzer Ihres 
“Lovely Helper”s stehe ich vor 
folgendem Problem: Wie kann 
ich das ACC von meiner Hard- 
disk (Partition C) installieren, 
wenn ich weder ein PASCAL- 
Programmsystem zur Ände- 
rungen des mitgelieferten 
Quellcodes mein Eigennennen 
kann, noch bei jedem System- 
start die Disk mit dem RCS- 
File im Laufwerk haben möch- 
te? Vielleicht ist es möglich, 
den Programmcode dahinge- 
hend zu patchen, daß das RCS- 
File im gleichen Verzeichnis, 
in dem auch das ACC-File 
steht, gesucht wird und daher 
auch das ACC von beliebigen 
Partitionen aus installiert wer- 
den kann? Für eine Lösung 
meines kleinen Problems wäre 
ich Ihnen sehr dankbar. 


C. Nachtwey, 2000 Hamburg 


Red.: Die Lösung ist relativ 
einfach, vorausgesetzt, Sie 
haben zumindest einen Disk- 
monitor zur Hand. Am ein- 
fachsten ist es, wenn dieser in 
der Lage ist, innerhalb einer 
vorgegebenen Datei zu arbei- 
ten. Ihre Aufgabe ist es nun, 
innerhalb der Accessory-Datei 
nach dem String “A:\HEL- 
PER.RSC” zu suchen, was sehr 
einfach ist, sollten Sie einen 
Diskmonitor besitzen, der in- 
nerhalb einer Datei suchen 
kann. Ansonsten würde ich 
Ihnen empfehlen, eine Diskette 
neu zu formatieren, darauf die- 
se Datei zu kopieren und dann 
diese Diskette zu durchsuchen. 
Dadurch verhindern Sie, daß 
Sie diesen String in einer von 
Ihnen nicht gewünschten Datei 
finden. Danach überschreiben 
Sie den String mit“\HELPER . 
RSC” oder “HELPER.RSC”, 
wobei die erste Version dafür 
sorgt, daß tatsächlich im 
Hauptverzeichnis des Boot- 
Laufwerks gesucht wird. Bitte 
fügen Sie aber unbedingt am 
Ende des Strings eine O an, was 
dafür sorgt, daß der String ab- 
geschlossen wird. Sollte der 
obengenannte String mehrfach 


vorkommen, wird der Vorgang 
entsprechend wiederholt. Da 
Lovely-Helper auch auf eine 
Parameterdatei zugreift, sollte 
“ ANHELPER.PAR’”in “\HEL- 
PER.PAR” geändert werden. 
Eine Bitte noch: Führen Sie 
den beschriebenen Vorgang 
auf jeden Fall nicht auf der Ori- 
ginaldiskette durch, sondern 
nur auf einer Sicherheitskopie. 


OL-Emulator 


Ich habe gerade in der Juli/ 
August-Ausgabe Ihrer ST- 
Zeitschrift gelesen, daß Sie 
eine extra Rubrik für Emulato- 
ren eingerichtet haben. Aus 
diesem Grunde möchte ich Sie 
bitten, über einen leider sehr 
unbekannten Emulator zu be- 
richten: den QL-Emulator. Er 
emuliert den Sinclair QL (CM 
MC68008) perfekt und er- 
reicht sogar eine wesentlich 
höhere Geschwindigkeit als 
das Original. Seit ich diesen 
Emulator habe, nutze ich mei- 
nen ST zu 99% als QL, da sein 
Betriebssystem QDOS we- 
sentlich besser ist als das des 
ST und perfektes Multitasking 
bietet. Ich habe von anderen 
ST-Anwendern, die den Emu- 
lator auch gekauft haben, ge- 
hört, daß sie die gleichen guten 
Erfahrungen gemacht haben 
wie ich. Ich denke, wenn ein 
“Schrottbetriebssystem” wie 
MS-DOS soviel Beachtung 
findet, dann sollte dieser wenn 
auch exotische Emulator we- 
nigstens einmal in Ihrer Zeit- 
schrift erwähnt werden! 


Tilman Kurz, 3500 Kassel 


Red.: Leider tun Sie uns Un- 
recht mit ihrer kleinen Ankla- 
ge, da wir diesem Emulator 
einen mehrseitigen Bericht 
gewidmet haben, der von ei- 
nem eingefleischten QL-An- 
wender geschrieben wurde. 
DerTestistinder ST 3/89 unter 
dem Namen ‘Sinclair QL- 
Emulator - Ein neuer Job für 
den ST’ erschienen. Diese 
Zeitschrift ist selbstverständ- 
lich noch erhältlich. Übrigens: 
Ob ein Betriebssystem besser 


als das andere ist, hängt sicher- 
lich von vielen Faktoren ab, so 
daß eine Abwertung des ST- 
Betriebssystems in dieser Wei- 
se nicht gerechtfertigtist. Auch 
wenn es nicht multitasking- 
fähig ist, hates andere Stärken, 
die QDOS nicht besitzt. 


* 


Dokumentationen 
zum ATARI ST 

In vielen Artikeln über den 
ATARLIST liest man von ‘offi- 
ziellen Dokumentationen’ 
oder ähnlichem. Dabei meine 
ich Dokumentationen wie zum 
Beispiel “The Hitchhikers 
Guide to the BIOS” oder die 
ATARLI-Infos von der ATARI- 
Corp. und Digital Research 
Inc. Mich interessiert bren- 
nend, wie auch ich davon profi- 
tieren kann, das heißt, wie ich 
an diese Schriften gelangen 
kann. Dazu muß ich sagen, daß 
ich nicht über ein Modem oder 
einen Akustikkoppler verfüge, 
mir also nicht zum Beispiel aus 
der ATARI-Mailbox down- 
loaden kann. 


Weiterhin interessieren mich 
das ATARI-Entwicklungspa- 
ket und GDOS. Auch hier die 
Frage, wie ich ohne DFÜ an die 
Programme kommen kann. Da 
dreimal “Bremer Recht” ist, 
nun zum dritten Punkt: Vor 
einigen Tagen habe ich mal 
wieder ein wenig mit meinem 
GFA-Assembler “im GEM 
rumprogrammiert”. Als Hilfe 
benutzte ich dazu das sehr gute 
ST-Profibuch. Als ich die 
SHEL-Funktionen des AES 
ausprobieren wollte, stieß ich 
auf ein kleines Problem. Im 
PROFIBUCH ist zum Beispiel 
die Funktion SHEL_WRITE 
folgendermaßen deklariert: 


sh_return=SHEL_WRITE 
(sh_wdoex, sh_wisgr, 
sh_ wiscr, sh_wpcmd, 
sh_wptail) 
Beim Aufruf dieser Funktion 
fand ich jedoch heraus, daß 
sh_wpcemd und sh_wptail ver- 
tauscht werden müssen! Auch 
bei SHEL_READ müssen die 
beiden Parameter vertauscht 
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werden. Fehler des Profibuchs 
oder hat Digital Research diese 
Funktion von Anfang an falsch 
dokumentiert? 


Stefan Näwe, 2800 Bremen 


Red.: Zunächst einmal sollte 
erwähnt werden, daß das soge- 
nannte Entwicklungspaket aus 
einer Dokumentation undeiner 
Software (C-Compiler, As- 
sembler, RCS etc.) besteht. 
Daher kostet es relativ viel 
Geld, zumal die Dokumenta- 
tion zum Großteil aus drei tele- 
fonbuchgroßen Büchern be- 
steht. Des weiteren findet man 
auch die inzwischen veröffent- 
lichten Informationen über das 
BIOS (Hitchhikers..), LINE-A 
(thelong awaited...) und den 
Blitter. Ein richtiges GDOS- 
Dokument (abgesehen von 
dem, was sich auf den GDOS- 
Disks befindet) gibt es meines 
Wissens nicht, ich lasse mich 
aber gerne belehren. All diese 
Dokumente sind nach meiner 
Meinung aber nicht besonders 
vollständig und alles andere als 
didaktisch gut aufgebaut. 
Abgesehen davon sind ‘Hitch- 
hikers Guide to the BIOS’ 
sowie “The long awaited Line- 
A-Dokument' alles andere als 
neu, sprich, es gibt sie schon 
mehrere Jahre, und sie sind 
durch neuere Betriebssysteme 
nicht mehr aktuell. Stattdessen 
ist es sicherlich sinnvoll, mit 
Büchern wie dem von Ihnen 
erwähnten zu arbeiten, da man 
sich hier die Arbeit gemacht 
hat, alles Wichtige geordnet(!) 
zusammenzutragen. Natürlich 
kann man auch hier Fehler 
nicht ausschließen - es sind 
aber sicher weniger als in der 
ATARI-Original-Dokumenta- 
tion - so schlimm es auch 
klingt. Ich denke, daß ATARI 
diesen Fehler nicht noch ein- 
mal bei dem neuen ATARITT 
begehen sollte. Sollten Sie 
dennoch diese Informationen 
haben wollen, wenden Sie sich 
am besten an ATARI direkt, 
oder schauen Sie doch einmal, 
ob sich ein ATARI-User-Club 
bei Ihnen in der Nähe befindet, 
der diese Informationen be- 
sitzt. 


Zu Ihrer Frage bezüglich der 
Shel-Funktionen kann ich sa- 
gen, daß Sie recht haben und 
die Funktionen falsch dekla- 
riert sind. Allerdings funktio- 
niert es tatsächlich, wenn man 
die Variablen so füllt, wie sie 
im Profibuch beschrieben sind. 
Dort werden bei shel_write die 
Variable sh_wpemd als Pro- 
grammname und sh_wptail als 
Kommandozeile beschrieben. 
Füllt man diese Variablen so, 
funktioniert es auch, da das 
Binding entsprechend abge- 
druckt ist. Allerdings sind die 
Namen in dieser Form nicht 
gerade sinnig, da man in einer 
Variablen sh_wpcmd eine 
Kommandozeile und in einer 
Variablen sh_wptail einen 
Namen übergeben sollte. Des- 
halb sollte die Routine wie 
folgt umdefiniert werden, 
wobei wichtig ist, daß in der 
GEM-Variablen addr_in[O] 
der Programmname und in 
addr_in[1] die Kommandozei- 
le zu finden ist. 


int shel_write (sh_wdoex, 

sh_ wisgr, 
sh_wisover, 

progname, cmdline) 
sh_wisgr, 
sh_wisover; 

char *progname, *cmdline; 


int sh_wdoex, 


int_in{0]] = sh_wdoex; 
int_in{1] = sh_wisgr; 
int_inf2] = sh_wisover; 
addr_in[0] = (long)progname; 


addr_in{1] = (long)cmdline; 


return(crys_if(121)); 
} 


Bei shel_read müssen die Para- 
meter in der Kommandozeile 
sowie in der Zuweisung inner- 
halb des Bindings vertauscht 
werden. Bei den Bindings der 
diversen Compilerssprachen 
ist dieser Fehler allerdings 
nicht gemacht worden, so daß 
das Aufrufen der Routinen 
ohne Probleme funktionieren 
müßte. 


* 


Anleitung für RCS 
2.1 gefragt 
Seit einiger Zeit benutze ich 


GFA-BASIC 3.0. Jetzt möchte 
ich mich zum ersten Mal an die 


Verwendung von Resource- 
Dateien heranwagen. Nun hat 
GFA dem Interpreter das RCS 
von Digital Research Version 
2.1 beigegeben, jedoch man- 
gelt es an einer Gebrauchsan- 
weisung. Eine telefonische 
Anfrage bei GfA ergab, daß 
man von Digital Research zwar 
die Erlaubnis habe, das RCS 
weiterzugeben, jedoch keine 
Anleitung hierzu. Danach ver- 
suchte ich es bei mehreren 
Händlern, und ich stöberte in 
verschiedenen Büchern. Der 
Erfolg war leider gleich Null. 
Meine Frage lautet: Woher 
bekomme ich eine möglichst 
vollständige Anleitung zum 
RCS Version 2.1 von Digital 
Research? Es gibt doch mit 
Sicherheit noch mehr Pro- 
grammierer, die noch nicht den 
vollen Durchblick haben und 
noch etwas lernen müßten oder 
wollen. 


Kersten Ohland, Raunheim 


Red.: Auch wenn Sie praktisch 
eine Handbreit entfernt von 
ATARI wohnen, so hätte es 
sicherlich keinen Zweck, zu 
ATARI zu gehen, da es es 
meines Wissens keine offiziel- 
le Anleitung für dieses Pro- 
gramm gibt. Allerdings gibt es 
einen kleinen Lichtblick: Die 


Version 1.4 des RCS darf 
(freundlicherweise von 
ATARI genehmigt) von 


MAXON als Sonderdisk ver- 
trieben werden. Auch zu die- 
semRCS gibt es keine offiziel- 
le Anleitung, allerdings haben 
wir uns in unserem 2. Sonder- 
heft die Mühe gemacht, eine zu 
schreiben: Dort finden Sie eine 
relativ gute Ein- sowie Anlei- 
tung zum RCS 1.4. Zusätzlich 
gibt es auch Beispiele, wie die 
Dialogboxen und Menüleisten 
des STs aufgebaut und ange- 
wendet werden. Anwendun- 
gen von Dialogboxen und 
Menüileisten finden Sie immer 
wieder in unserer Zeitschrift. 
Sollten Sie diese Artikel ver- 
paßt haben, können Sie be- 
spielsweise die Jahresinhalts- 
verzeichnisse ‘durchforsten’, 
die Sie in den Januar-Heften 
finden. 


Immer up to date 


Mit dieser Sparte wollen wir allen unseren Lesern die Möglichkeit geben, sich über die neuesten Programm-Versionen zu informieren. Angegeben werden die aktuelle Versionsnummer, ein 
eventueller Kopierschutz, die Bildschirmauflösungen und der Speicherbedarf. Softwarefirmen ist es somit möglich. die ST-Computer-Leser über ihre Updates zu informieren. 


N HM 
NHM 
NH 

N HML 
NHML 


Adımens ST 

Aditalk ST 

Adress ST / Check ST 
Alusoft Morse-Tutor 
Afusoft Radio-Writer 
Afusoft Radiofax plus N HML IM 
Aladin JH 
AnsiTerm B N 
Assembler Tutorials 4 N 
Banktransfer NH 

Ist BASIC Tool NHML 
BTX/VTX-Manager NH IM 
Calamus NH IM 
Cashflow NH IM 
CIS-L&G 

Creator 

dBMAN 

NibuMAN 

NibuSTAT 
Flash-Cache/Flash-Bak 
Flexdisk 

FM-Meßtechnik 

Gadger 

GEMinterface ST 
GFA-Artist 

GFA-Assembler 
GFA-BASIC 68881 
GFA-BASIC-Compiler 
GFA-BASIC-Interpreier 
GFA-Draft 

GFA-Draft plus 
GFA-Farb-Konverter 
GFA-Monochrom-Konverter 
GFA-Objekt 

GFA-Starter 

GFA-Vektor 

G+Plus 


NH 
NHML 
NH 


NHM 


vorbehalten! 


de: N = kein Kopierschutz. I = Kopierschutz. H = hohe Auflösung. M 


INSERENTENVERZEICHNIS 


ATARI 63 
AFM COMPUTER 185 
ADI SOFTWARE 9 
ABAC 109 
APPLICATION SYSTEMS 2 
ABAKUS 121 
AS DATENTECHNIK 109 
AB-COMPUTER 181 
BUSCH UND REMPE 31 
COMPUTER TREFF 166,167 
COMPEDO ın 
COMPUTEC VESL. 121 
CWTG 14 
COMPU SCIENCE 183 
COPYDATA 170 
DITTRICH 139 
DATA-BECKER 36,37 
DIGITAL DATA DEICKE 123 
DREWS 70 
DM-COMPUTER 117 
DUFFNER 166,167 
ESCH 

EICHHORN 

EURASYSTEMS 

EICKMANN 

FSE 

FSKS 

FISCHER 

GÄRTIG 

G-DATA 

GMA-SOFT 


GENGTEC 
GFA 
GDAT 

GTI 
GAUGER 


H+T 


HORN 
HOFMANN 
HAASE 
HOLM 
HERBERG 
HEIM 


INTERSOFT 
IKS 

IDEE SOFT 
IDL 


KUSCHEK 
KNISS SOFT 
KAROSOFT 
KURWIG 
KRÜGER 


LOGITEAM 
LUDWIG 





SUPER - STARDRIVER- 
SUPER NEE-DRIVER 
NEUE DRUCKERTREIBER FÜR 1ST WORD PLUS 


Nutzen Sie alle Möglichkeiten Ihres Druckers voll aus 
Super-Driver erweitern die Textverarbeitung: 
Ist Word Plus wird zum DTP-System 




















Zeilenabstände beliebig verändern (zB. 11/2-zeilig) 
Texte in 2-6 Spalten drucken (echter Mehrspaltendruck) 
alle Druckerschriltarten in einem Dokument einsetzen 
neue Zeichensäzte laden und benutzen (z. Zt. 40 Fonts) 
Titel in doppelt und vierfach hohen Zeichen drucken 
- gesperrt drucken. Vierleischritt- und Halbschrittaste 
bedienungstreundliches Handbuch und Referenzkarte 





Haben Sie das von Ist Word Plus erwartet? 
Warum weniger Leistung. wenn es Superdriver gibt! 
Erhältlich für STAR NL10/ LC10/LC24-10 und NEC P6/P7/P2200 


Neu: Jetzt auch für Seikosha SL-80IP ! 






GRAF + SCHICK 
HEBER-KNOBLOCH 


HÜTHIG VERLAG 69 


HD-COMPUTERTECHNIK 


KLEEFELD + PARTNER 
KIECKBUSCH 


LAUTERBACH 


LOGO VERLAG 


GirafStar 

Hänisch Modula-2 
Hard Disk Accelerator 
Hard Disk Sentry 
Hard Disk Toolkit 
Harddisk Utility 
Imagic 

Intelligent Spooler 
Interlink ST 
K-Resource 
Kleisterscheibe 
Label ST 

Laser C (Megamax) 
Ist_Lektor 


MagicBOX ST 

Mega Päint 

Megamax Modula 2 

Micro C-Shell 

\IT C-Shell 

\Multidesk 

Musix32 

NeoDesk 

Omikron Assembler 
Omikron BASIC Compiler 
‚Omikron BASIC 6888 1-Compiler 
‚Omikron BASIC Interpreter 
Omikron DRAW! 3.0 
Omikron EasyGEM-Lib 
Omikron Maskeneditor 
Omikron Midi-Lib. 
Omikron Numerik-Lib 
‚Omikron Statistik-Lib. 
PAM's TERM/4014 
PAM’s TurboDisk 


1 = niedrige Auflösung. IM = 


182 LESCHNER 
196  LIGHTHOUSE 
117 LACOM 
31 _ MAYER-GÜRR 
166,167 MAXON 
166.167. MARKERT 
121 MICHIELS 
127 NEUBAUER 
NEC 
24 NEERVOORT 
ın NOVOPLAN 
170 OLUFS 
170  OHST 
158,159 PD-EXPRESS 
143,106.99 PRINT TECHNIK 
166,167 PROTAR 
166,167,121 PETILLON 
166,167,113  PORADA 
109 PITZ 
66.166.167. QUAZAR 
ISI RHOTHRON 
163  RÜCKEMANN 
109 ROSIN 
113 RINGHUT 
m RIS 
24  RÄTZ 
1Sl SOFT 2000 
166,167 SHIFT 
183 SOMMERFELD 
181 SENDER 
131.139 SLAVNIC 


„htschreibhilfe‘ 


.. denn oft trifft erst das 
dritte Wort den Sinn 





Das Synonymenlexikon wm man sr 


Wörterbuch mit sinnverwandten Begrilfen 
Formulierungshilfe für alle Textarten 


Grundversion enthält ca. 50 000 Begritte 
erweiterte Version mit ca. 65 000 Begriften 


sinnvolle Ergänzung zu Textverarbeitungen 

arbeitet mit Ist Word Plus. Calamus. Tempus etc. 

Ard Word ist als Accessory jederzeit aufrufbereit 
keine Unterbrechung der Arbeit am Text nötig 


wdestens I Mi 


‚48,54,103.134 


PAM's NET 
PCB-layout 

PC ditto Euroversion 
PegaFakt 
phs-BTX-Box 
phs-ST-Box 
phs-Boxtalk 
phs-Boxedi 
phs-Cheapnet 

Pro Sound Designer 
Pro Sprite Designer 
Protos 

Revolver 

Search! 

Signum! zwei 
Soundmachine ST 
SoundMerlin 
SPC-Modula-2 
Specire 128 
Ist_Speeder 2 
STAD 

Steuer-Tax 2.9 
Steuer-Tax 3.9 
STop 

ST Pascal plus 
SuperScore 
Tempus 

TIM 

TIMI 

Transfile ST 1600 
Transfile ST 850 
Transfile ST plus 
Turbo C 

Turbo ST 

UIS I1 + Hermes 
VSH Manager 


24,181  SCHNEIDER 
15 ST-PROFI-PARTNER 
98 _ SCHLICHTING 
121 SCHLEICH 
SCILAB 
SCHUSTER 
166.167 SCHEIDT 
121 SCHÖN 
51 STIEHL 
4 SEH 
185 SCHREIBER 
24 TREND-DATA 
70,166,167°TOMMYSOFTWARE 
166,167.185 TK-COMPUTER 
179  TRUMPP 
59  T.U.M.-ST-SOFT 
181 UECKER 
11 VORTEX 
171 WITTICH 
9% _ WITASEK 
85 WEIDE 
192 _WELLER-TOOLS 
109 WALLER 
1m WEESKE 
162 WOHLFAHRTSTÄTTER 
98 YELLOW 
181 ZELLER 
145 
109 
111 
181 


166.167 





Autor en-© 


















Johannes Uhrlau: 


‚dung in andere Programme möglich 


ArCADe 


M. Kemmer. F Walter: 


Franz J. Pentenrieder. 


Egbert Güssgen 


mit ausführlichem Katalog 


R. Brück, J.J. Pypers; Boot It 


ölleetion 


ComponiST 
Ein professionelles Programm zum Eingeben, 
ung Drucken von Musikstücken. Dreistimmig komponiaren 
und spielen. Abspeicherung des Soundstrings und Einbin- 


N HML IM 
N HM 
NHM IM 
NHML IM 
NHM 
L 
L 
NH IM 
N HML IM 
N HM 
NH 
NHM 
NHM 
NHML 
J HM 
N HML IM 
NH 
N HM 
N HM 
NHM 
NHM 


N HML IM 


170 
167,170 
183 

15 
182.185 
66 

3 

24 

181 

172 
166.167 
166.167 
11.19 
139 
136 
166.167 
166,167 


166,167,193 
70.166,167 
70 

193 





DM 49.- 


Vorspielen 


DM 79.- 


Ein universelles CAD-Programm zum Entwerfen und Drucken 
von technischen Zeichnungen und anderen exakten Darstel- 
lungen. Ein optimales Preis - Leistungs - Verhältnis 


MiniFAKT 
Ein GEM-Programm zum Erstellen von Rechnungen. Viele 
Formate vorgegeben. individuelle Anpassung möglich. 
Schnittstellen zu 1st WordPlus und Adimens. 50-seitiges 
Hangbuch. Demoprogramm mit Anleitungskopie 15.- DM. 


DM 95.- 


Grafic-Collection DM 139.- 
4000 Graliken (IMG-Format, 1st Word Plus!} auf 8 Disketten 
(Jedes Bild in Originalgröße) 
Programm zum Anzeigen und Formatändern mitgelielert, 


DM 69.- 


Die Festplattenutility zum automatischen Start Ihrer Programme 
Freie Auswahl dar Accessories und Auloordner - Programme, 

















In der nächsten ST-Computer 
lesen Sie unter anderem 


Großer Weihnachtsbasar 


Es ist mal wieder soweit: Die Weihnachtszeit naht, und viele überlegen, 
was man sich aus dem reichhaltigen Angebot von Computern und Zubehör 
alles wünschen und schenken lassen kann. Damit Sie nicht voller Streß 
durch verschiedene Geschäfte hetzen müssen, um die richtigen Geschen- 
ke zu finden, haben wir eine Auswahl der interessantesten Accessoires für 
Sie zusammengestellt. 


Festplatten-Übersicht 


Manch einer möchte sich schon lange eine Festplatte anschaffen, weil ihm 
die Arbeit mit Diskettenlaufwerk(en) zu langsam und unkomfortabel 
wird. Welche Festplatten gibt es? Wie schnell sind sie? Wie gut ist der 
Treiber? Sind sie ATARI-kompatibel? Was kosten sie? Diese und viele 
Fragen mehr werden wir in der nächsten Ausgabe beantworten. 


Wir bauen uns einen Super-ST 


Sind Sie unzufrieden mit Ihrem ST? Ist er Ihnen vielleicht zu langsam, zu 
unkomfortabel, stört Sie die Tastatur, möchten Sie gerne IBM-Program- 
me benutzen, oder ist Ihnen vielleicht der Monitor zu klein? In der 
Originalverpackung von ATARI befindet sich ein eher kärglich ausgestat- 
teter ST. Mit Hilfe von verschiedenen Erweiterungen, Accessoires und 
anderen nützlichen Dingen werden wir versuchen, uns einen Super-ST zu 
bauen, vor dem selbst eingefleischte IBM-Anwender Respekt zeigen 
dürften. Sie werden staunen, was mit dem ST alles zu realisieren ist! 


Die nächste ST Computer erscheint am Fr., den 24.11.89 


Fragen an die Redaktion 


Ein Magazin wie die ST-Computer zu erstellen, kostet sehr viel Zeit 
und Mühe. Da wir ja weiterhin vorhaben, die Qualität zu steigern (ja, 
auch wenn das manchmal danebengeht), haben wir Redakteure ein 
großes Anliegen an Sie, liebe Leserinnen und Leser: 


Bitte haben Sie Verständnis dafür, daß Fragen an die Redaktion nur 
Donnerstags von 14%-17% Uhr telefonisch beantwortet werden kön- 
nen. 


Vielen Dank für Ihr Verständnis 


194 ST” 11/1989 
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Jahresabonnement: DM 70. 
Europ. Ausland : DM 90,- Luftpost : DM 12 
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Programmlistings, Bauanleitungen und Manu 
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die Zustimmung zum Abdruck und der Vervielfält 
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Honorare nach Vereinbarung. Für unverlangt einge 
Manuskripte wird keine Haftung übernommen. 


Urheberrecht: 

Alle in der ST-Computer erschienenen Beiträge sind 
urheberrechtlich geschützt. Reproduktionen gleich weicher 
Art. ob Übers Nachdruck, Vervielfältigung 
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schriftlicher Genehmigung der MAXON Computer ( 
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GFAPSATAF 


el EIMTTTER TV DEE 


IC 40? - Hochgeschwindigkeitsinterpreter und integrativer 
A “pH j ( Compiler als komplettes Entwicklungssystem 
U ws . Einbindung von Assembler und C-Source-Codes in 


GFA-BASIC-Programme. DM 198, — 









JZEZSHIFA FI CE 


Das GFA-BASIC 2.0 Entwicklungssystem ST - Inter- 
preter + Compiler - für Einsteiger. DM 49,90 


(Upgrade-Möglichkeit zum GFA-BASIC 3.0 Entwicklungssystem ST DM 160,-) 


[7.9.1777 0,1:10 170 ı 
rap Professioneller Makro-Assembler für 68000-Programmierer 
zZ GFA-BASIC 3.0 ST Training Leistungsfähiger Editor mit integriertem Assembler und Linker 


Der ideale Einstieg in die Version 3.0. Nachladbarer Debugger. DM 149,— 


14 Themenschwerpunkte aus allen wichtigen Bereichen. 
272 Seiten, Hardcover, ISBN 3-89317-005-7 


DM 29,-— & GFA-BASIC ST: Version 3.0 





Das Umsteigerbuch für alle diejenigen, die bisher mit 2.0 gearbeitet haben 
und jetzt die phantastischen Möglichkeiten der „großen“ Version 3.0 
optimal nutzen wollen. 394 Seiten, Hardcover, inkl. Diskette, ISBN 3-89317-004-9 


nei DM 59,- 
Das GFA-Anwenderbuch 


Wann GFA-BASIC? Wann GFA-ASSEMBLER? - Die 
Antwort finden Sie in dem neuen GFA-Anwenderbuch 


(inkl. Programmiertricks und Anwendungsbeispielen 
zum neuen GFA-BASIC 3.0 Compiler). GFA-DRAFT-plus sT 
Ca. 450 Seiten, Hardcover, inkl. Diskette, ISBN 3-89317-011-1 Leistungsfähiges, zweidimensionales CAD-Programm 
DM 59 seit Jahren bewährt, tausendfach im Einsatz 
— (Symbolbibliotheken zu GFA-DRAFT-plus auf Anfrage) 
DM 349,— 


GFA-CASTELL — Architektensystem 


Das Architektensystem für den ATARI-Mega STA. 
Mächtige Funktionen mit anwendergerechter Benutzerführung. 
Fordern Sie unseren Sonderprospekt „GFA-CASTELL“ an. Preis auf Anfrage 


Das professionelle Statistikpaket. 
Über 70 Verfahren der beschreibenden und schließenden Statistik. 
Umfangreiches Handbuch, Beschreibung jedes Verfahrens 


sowohl von der rein formalen als auch der Anwendungsseite. DM 998,- 
Sonderprospekt GFA-STATISTIK anfordern. 


Campus- und Studentenversion: Preis auf Anfrage 


wat te 


02 11 GFA Systemtechnik GmbH 
Heerdter Sandberg 30-32 SYSTEMTECHNIK 

D-4000 Düsseldorf 11 

Tel. 0211/5504-0 - Fax 0211/5504.44 





